How do I stack columns of data on top of each other?

[Snvlsfoal]

I have a matrix of numbers: 256 columns by 256 rows. I'd like to stack all the columns on top of each other to make one long column of 65,536 rows. Can you help me do this efficiently? Thankyou.

[Catalin.B]

you can use this macro for a start...(same macro in file attached)

Sub Copycol()
Dim Wks As Worksheet
Dim nextRow As Long
Set Wks = Worksheets("Foaie1")
Dim j As Integer

Dim Myrange As Range
Application.ScreenUpdating = False

For j = 1 To 256

Set Myrange = Range(Wks.Cells(1, j), Wks.Cells(256, j))

nextRow = Sheets("Foaie2").Range("A" & rows.Count).End(xlUp).row + 1
Myrange.Copy
Sheets("Foaie2").Range("A" & nextRow).PasteSpecial (xlPasteValues)


Next j


Application.ScreenUpdating = True
End Sub