I misread your initial post - if you want to move exactly n rows:

Const nROWS As Long = 5
Dim i As Long

For i = 2 to Cells(1, Columns.Count).End(xlToLeft).Column
Cells(1, i).Resize(nROWS, 1).Copy _
Destination:=Cells((i - 1) * nROWS + 1, 1)
Next i


In article ,
luke wrote:

thanks.

both methods work although they don't account for blank cells as they
paste the data to the first blank cell in column A. But no worries,
i'll see what I can do to solve that. This has got me started and given
me something to help me understand this sort of looping with ranges and
using counters etc...

thanks again, luke