Laufzeitfehler 1004 Anwendungs- oder objektdefinie

Sub DatenHolen()
Dim WBZiel As Workbook, ExportDatei As Variant
Dim WBQuelle As Workbook, WSQuelle As Worksheet, WSZiel As Worksheet
Dim to_Ziel As Long
Dim to_Quelle As Long
Set WBZiel = ThisWorkbook
'DateiÖffnen Dialog anbieten
ExportDatei = Application.GetOpenFilename("Micrsoft Excel-Dateien (*.xlsx),*.xlsx", , " _
Bitte die Datei xyz.xlsx öffnen ...")
ExportDatei = CStr(ExportDatei)
If ExportDatei = "Falsch" Then Exit Sub
'öffnen der ausgewählten Datei
Set WBQuelle = Workbooks.Open(ExportDatei)
Set WSQuelle = WBQuelle.Sheets("Page1_1")
to_Quelle = WSQuelle.Cells(Rows.Count, 1).End(xlUp).Row
'Kopieren der Tabelle "Page1_1" aus Datei „xyz“ in "Tabelle1"
Set WSZiel = WBZiel.Sheets("Tabelle1")
to_Ziel = WSZiel.Cells(Rows.Count, 1).End(xlUp).Row + 1
WSQuelle.Range("A2", "R" & to_Quelle).Copy WSZiel.Cells(to_Ziel, "A").PasteSpecial
Set WBZiel = Nothing
Set WBQuelle = Nothing
End Sub