VBA: Daten in einer Zeile untereinander schreiben

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