Kopieren und in Table einfügen

Hallo zusammen

Ich würde gern die Formel dazu bringen, dass sie folgendes macht:

1. Datei auswählen (klappt)
2. Ab zeile 2 kopieren (klappt nicht)
3. Werte in die letzte beschriebene Zeile in der Table1 einfügen

Weiß jemand, wie der Code dazu aussehen würde?

Danke schön für Eure Hilfe

Gruß
Tommy

hier der Code:

Sub Import_Vorgangsuebersicht()

Dim arrDateien As Variant
Dim wbQuelle As Workbook
Dim LetzteZeile As Long
Dim cntDatei As Long
Dim rngQuelle As Range
 
'Screenupdating und PopUps deaktivieren
Application.ScreenUpdating = False
Application.DisplayAlerts = False
 
'Benutzer Dateien ausw_hlen lassen
arrDateien = Application.GetOpenFilename(FileFilter:="Excel-Dateien (*.xls*),*.xls*", MultiSelect:=True)
 
'Wurde eine Datei ausgew_hlt?
If IsArray(arrDateien) Then
 
    'Schleife Ùber alle ausgew_hlten Dateien
    For cntDatei = 1 To UBound(arrDateien)
     
        LetzteZeile = ThisWorkbook.Worksheets("Vorgangsübersicht").Cells(Rows.Count, 1).End(xlUp).Row
         
        'Aktuelle Arbeitsmappe _ffnen
        Set wbQuelle = Workbooks.Open(Filename:=arrDateien(cntDatei))
         
        'Daten-Range setzen
        Set rngQuelle = wbQuelle.Worksheets(1).Range("A2").CurrentRegion
         
        'Daten kopieren und einfÙgen
        Intersect(rngQuelle, rngQuelle.Offset(0, 0)).Copy
        ThisWorkbook.Worksheets("Vorgangsübersicht").Range("A" & LetzteZeile + 0).PasteSpecial
         
        'Arbeitsmappe schlie¤en
        wbQuelle.Close SaveChanges:=False
    Next cntDatei
 
End If
 
'Screenupdating und PopUps aktivieren
Application.ScreenUpdating = True
Application.DisplayAlerts = True


'Bereitgestellt von VBATrainer: www.vbatrainer.de
End Sub