I don't like selections but try this. Change "a" to your column.

Sub cuttworowsdown()
cells(Rows.Count, "a").End(xlUp).Select
Do Until ActiveCell.Row = 1
ActiveCell.Cut ActiveCell.Offset(2)
ActiveCell.End(xlUp).Select
Loop
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"fdibbins" wrote in message
...
ok, sounds dumb, but how do I move the cursor in excel a set number of
lines
using a macro - cant use a cell reference because it changes all the time.
I
need to cut an item in 1 cell, move down 2 lines, past it and then
"enddown"
to find the next instance. I have 100's of these to do, and number of
lines
between each cut/paste is never the same. I know its really simple, but
just
cant seem to get it working...help please!!!!