Daten auslesen, aber nicht aus der ersten Spalte

Sub LeseDaten()
'Lese Daten aus Datendatei
Const ersteSchreibzelle = "A1"                 'die erste Zelle, in die geschrieben wird
Const Dateiname = "C:\Daten\EXCEL\Test-Daten.xls"    'Verzeichnis und Dateiname
Dim varZellinhalt As String                 'Variable, in die der Zellinhalt geschrieben wird
Dim Dateinummer As Integer                  'Dateinummer für "Open"
Dim Zeilennummer As Integer                  'Zeilennummer
Zeilennummer = 0                             'auf 0 setzen
Dateinummer = FreeFile(0)                   'freie Dateinummer vergeben
Open Dateiname For Input Access Read As Dateinummer 'öffnen der Datei
Do While Not EOF(Dateinummer)
Line Input #Dateinummer, varZellinhalt      'Variable wird gefüllt
Range(ersteSchreibzelle).Offset(Zeilennummer, 0) = varZellinhalt 'Offset(Zeile, Spate)versetzt nach Startzelle
Zeilennummer = Zeilennummer + 1               'nächste Zeilennummer
Loop
Close Dateinummer                           'schließe Datei
End Sub