macro moving cells

[alvbnp]

Need a macro to move cells.

b2 to c1
b3 to d1

b5 to c4
b6 to d4

b8 to c7
b9 to d7

till the end.

Thanks. [/b]

 

[onlyadrafter]

Hello,

like this?

Sub moving()
For MY_ROWS = 2 To Range("B65536").End(xlUp).Row Step 3
    Range("B" & MY_ROWS).Cut Destination:=Range("C" & MY_ROWS - 1)
    Range("B" & MY_ROWS + 1).Cut Destination:=Range("D" & MY_ROWS - 1)
Next MY_ROWS
End Sub

 

[alvbnp]

Thanks. working great.