VBA - Importierte Daten aus .txt unten anhängen

[Zapa]

Verhält sich das so:

mit OpenText wird die voher angewählte Textdatei als aktives sheet geöffnet (unter berücksichtigung der angegebenen Parameter, in meinem Fall Komma=True)
Dann wird mit ActiveSheet.UsedRange.Copy alles aus dem sheet kopiert und im Arbeitsbaltt wks an A1 eingefügt.

Wie kann ich denn dieses wks.Range("A1") so modifizeren, dass die neuen Daten unterhalb der vorhandenen Daten eingefügt werden.

Ich dachte mir so was zu machen, funzt aber nicht:

Code:

Sub TextImport()
  Dim wks As Worksheet
  Dim vFile As Variant
  Dim lngLast As Long
   
  Application.ScreenUpdating = False
  Set wks = ActiveSheet
  vFile = Application.GetOpenFilename("Textdateien (*.txt), *.txt")
  If vFile = False Then Exit Sub
  Workbooks.OpenText Filename:=vFile, Tab:=False, semicolon:=False, _
      comma:=True, Space:=False, other:=False
 
  lngLast = Cells(Rows.Count, 1).End(xlUp).Row + 1
  ActiveSheet.UsedRange.Copy wks.Range("A" & lngLast)
 
  ActiveWorkbook.Close savechanges:=False
  Application.ScreenUpdating = True
 
  MsgBox "Erste freie Zelle in Spalte A ist in Zeile: " & lngLast

 
End Sub

Gruß
Manu