VBAのコードです。
Sheet1の値をSheet2のA列に1個づつ転記します。
たいして時間がかからないので、配列を使うまでもないと思いました。

Sub test()
Dim i As Long, j As Long
Dim cn As Long
For j = 1 To 100
    For i = 1 To 123
     cn = cn + 1
     Worksheets("Sheet2").Cells(cn, 1).Value = Worksheets("Sheet1").Cells(i, j).Value
    Next i
Next j

End Sub