Try this:

Sub Test()
Dim i As Integer
Dim j As Integer
Dim k As Integer

i = 0
k = 1
Do While i < 70
j = 0
Do While j < 11
Range("D" & k) = Range("A1").Offset(i, j)
j = j + 1
k = k + 1
Loop
i = i + 1
Loop

End Sub

Assuming A1 is your starting point and D is your long column

--
renega
-----------------------------------------------------------------------
renegan's Profile: http://www.excelforum.com/member.php...fo&userid=1045
View this thread: http://www.excelforum.com/showthread.php?threadid=55247