Dieses kleine Script liest die Zellen in einer Tabellenzeile aus und schreibt sie untereinander in die Spalte A. Dabei muss fest angegeben werden, wie viele Zellen ausgelesen werden sollen.
Sub main()
Dim i As Integer
For i = 1 To 67
Range("A" & 2 + i).Value = Cells(1, i).Value
Next i
End Sub