Brauch mal hilfe

Sub ÖffneCSV()
Dim Suchpfad As String
Dim Suchbegriff As String
Suchpfad = InputBox("Geben Sie den Ordner an, der durchsucht werden soll.", "Pfad definieren", "T:\NA\lst")
If Suchpfad = "" Then Exit Sub
Dateiform = InputBox("Geben Sie den Dateityp an der gesucht werden soll", "Dateierweiterung", "*.csv")
If Dateiform = "" Then Exit Sub
Workbooks.Open Filename:="T:\NA\lst.CSV" 'Quelldatei angeben
Range("A:A,AA:AA").Select 'Bereich anpassen
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
'Hier die Zieltabelle eintragen
Workbooks("Auswahl").Sheets("Auswahl").Range("A1").PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub