Hi all! I am a new poster and also a neophyte Visual Basic user. I am
trying to create a macro that will cut the odd ranges in (B9:B649) to
(A9:A649). There is data in the even ranges I will want to move up in
column B when I get the odd data moved to column A. I've seen a lot of
options for ranges of consecutive cells but am lost when dealing with
random cells. My last attempt was:

Sub CutAndPaste()

Dim X As Integer
Dim Y As Integer
Dim Sum As Integer

Y = 1

For X = 8 To 648

Sum = X + Y
Range("BSum").Cut Destination:=Range("ASum")

Next
End Sub

I was hoping I could use the Sum value as my row indicator but it
doesn't work.
I appreciate any input!
Dennis

One way:
Sub Test()
Dim i As Range
For Each i In Range("B9:B649")
If i.Row Mod 2 <> 0 Then _
i.Cut i.Offset(, -1)
Next i
End Sub
HTH Otto
<(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> Hi all! I am a new poster and also a neophyte Visual Basic user. I am
> trying to create a macro that will cut the odd ranges in (B9:B649) to
> (A9:A649). There is data in the even ranges I will want to move up in
> column B when I get the odd data moved to column A. I've seen a lot of
> options for ranges of consecutive cells but am lost when dealing with
> random cells. My last attempt was:
>
> Sub CutAndPaste()
>
> Dim X As Integer
> Dim Y As Integer
> Dim Sum As Integer
>
> Y = 1
>
> For X = 8 To 648
>
> Sum = X + Y
> Range("BSum").Cut Destination:=Range("ASum")
>
> Next
> End Sub
>
> I was hoping I could use the Sum value as my row indicator but it
> doesn't work.
> I appreciate any input!
> Dennis
>

Otto,

Thanks a lot!!! That worked perfectly!

Dennis

On Jan 8, 5:00 pm, "Otto Moehrbach" <ottokm...@comcast.net> wrote:
> One way:
> Sub Test()
> Dim i As Range
> For Each i In Range("B9:B649")
> If i.Row Mod 2 <> 0 Then _
> i.Cut i.Offset(, -1)
> Next i
> End Sub
> HTH Otto<dring...@yahoo.com> wrote in messagenews:(E-Mail Removed)...
>
> > Hi all! I am a new poster and also a neophyte Visual Basic user. I am
> > trying to create a macro that will cut the odd ranges in (B9:B649) to
> > (A9:A649). There is data in the even ranges I will want to move up in
> > column B when I get the odd data moved to column A. I've seen a lot of
> > options for ranges of consecutive cells but am lost when dealing with
> > random cells. My last attempt was:
>
> > Sub CutAndPaste()
>
> > Dim X As Integer
> > Dim Y As Integer
> > Dim Sum As Integer
>
> > Y = 1
>
> > For X = 8 To 648
>
> > Sum = X + Y
> > Range("BSum").Cut Destination:=Range("ASum")
>
> > Next
> > End Sub
>
> > I was hoping I could use the Sum value as my row indicator but it
> > doesn't work.
> > I appreciate any input!
> > Dennis