Sub MoveData()
RowCount = 1
Do While Range("A" & RowCount) < ""
Range("L" & RowCount & ":O" & RowCount).Cut _
Destination:=Range("C" & (RowCount + 1))
RowCount = RowCount + 2
Loop

End Sub

"Karen Sigel" wrote:

I have a spreadsheet with several thousand rows. I made every other row blank
using a macro I found here (thanks!). Now, I need to move the data that
resides in Row 1 L, M, N, O (a populated row) to Row 2 C, D, E, F (the blank
row I inserted) for the whole sheet.

Is this possible? Can someone help me out?

Thanks-
Karen