Spalten aus einzelnen csv. files in ein neue Arbei

Sub Grundatenhinzufügen()
Dim varDatei As Variant
Dim i As Integer
Dim s As Integer
Dim wbQuelle As Object
Dim wbziel As Object
Windows("Auswertungmakro.xlsm").Activate
i = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column
Range("A8").Value = InputBox("Bitte Namen eingeben")
varDatei = Application.GetOpenFilename()
Workbooks.Open (varDatei)
With ThisWorkbook.Worksheets
Range("A2:I15").Select
Selection.Copy
Windows("Auswertungmakro.xlsm").Activate
Range("A9").Select
ActiveSheet.Paste
End With
End Sub

Sub Bauteilhinzufügen()
Dim varDatei As Variant
Dim i As Integer
Dim s As Integer
Dim wbziel As Variant
Dim wbQuelle As Variant
Set wbziel = ThisWorkbook.Worksheets("Tabelle1")
varDatei = Application.GetOpenFilename()
If varDatei = False Then
MsgBox "Der Benutzer hat abgebrochen.", vbInformation
Else
MsgBox "Folgende Datei wurde ausgewählt:" & vbCrLf & varDatei
End If
varDatei.Open
Set wbQuelle = ThisWorkbook.Worksheets("Tabelle1")
wbziel.Select
i = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column
Range(Cells(8, i + 1 + 4)).Value = InputBox("Bitte Namen eingeben")
wbQuelle.Select
s = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Range(Cells(1, 8), Cells(s, 9)).Copy
wbziel.Select
Range(Cells(9, i + 1 + 4), Cells(9 + s, i + 1 + 4 + 1)).PasteSpecial Paste:=xlValues
End Sub