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