VB Daten aus zwei Dateien kopieren, an erste leere Zelle mit Formatierung kopieren

Option Explicit

Const InternSheet = "Tabelle1"				'Tabellenname Ziel-Datei  
Const ExternSheet = "Tabelle1"				'Tabellenname Quelle-Datei  
Const ExternRange = "A1:E"				'Zelle A1 bis E?  
Const ExternFile = "X:\Test\Quelle.xls"			'Pfad Quelle-Datei  

Sub GetExternData()
    Dim iWks As Worksheet, eWks As Worksheet, EndLine As Long, BegLine As Long
    
    Set iWks = ThisWorkbook.Sheets(InternSheet)
    Set eWks = GetObject(ExternFile).Sheets(ExternSheet)
    
    BegLine = iWks.Cells(iWks.Rows.Count, "A").End(xlUp).Row + 1  
    EndLine = eWks.Cells(eWks.Rows.Count, "A").End(xlUp).Row  
    
    eWks.Range(ExternRange & EndLine).Copy Destination:=iWks.Cells(BegLine, "A")  
    
    Application.DisplayAlerts = False
    GetObject(ExternFile).Close True
    Application.DisplayAlerts = True
End Sub