Sub test()

Dim r As Long
Dim c As Long
Dim n As Long
Dim arr1
Dim arr2(1 To 770, 1 To 1)

arr1 = Range(Cells(1), Cells(70, 11))

For r = 1 To 70
For c = 1 To 11
n = n + 1
arr2(n, 1) = arr1(r, c)
Next
Next

Range(Cells(1), Cells(770, 1)) = arr2

End Sub


RBS


wrote in message
oups.com...
I have 70 rows that is 11 columns deep that I need to put into one long
column using a macro. I want the rows to be consecutively loaded. A
smaller version of what I'm trying to do is this:

Turn this:
1 2 3
4 5 6
7 8 9

Into this:
1
2
3
4
5
6
7
8
9

This needs to be a macro because I receive this data once a day in the
incorrect format. Any advice you have would be appreciated!