VBA - Importierte Daten aus .txt unten anhängen

[Zapa]

Hi,
ich schon wieder 

ich habe per VBA eine Schaltfläche, über die ich kommagetrennte Textdateien importieren möchte. Dazu habe ich ein Makro aufgenommen.
Ansich funktioniert es auch.
Problem: Die Importdateien sollen, wenn schon Daten im Arbeitsblatt sind, immer unter die letzte vorhandene  Zeile eingefügt werden.
Und, wie kann ich eine andere, beliebige Textdatei anwählen (Dialogfenster). So verweist der immer auf die Gleiche.

Bastele jetzt seit Stunden rum, finde aber keine Lösung.

Code:

Sub TextImport()
   Dim wks As Worksheet
   Dim vFile As Variant

   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

   ActiveSheet.UsedRange.Copy wks.Range("A1")

   ActiveWorkbook.Close savechanges:=False
   Application.ScreenUpdating = True
End Sub

Würde mich über einen Tipp freuen
Grüße
Manu