Bereiche einer xls in eine andere kopieren VBA

Sub Berichtswesen()
Dim Pfadname As Variant
Dim Dateiname As Variant
Dim Stelle As Integer
Dim i As Integer
Pfadname = InputBox("Bitten geben sie den kompletten Pfad ein", , "Y:\xxx.xls")
Workbooks.Open Filename:=Pfadname ' Öffnet die Datei, die in der oberen Input Box eingegeben wurde.
For i = 1 To Len(Pfadname)
If Mid(Pfadname, i, 1) = "\" Then
Stelle = i 'Die letzte Stelle, wo ein \ steht.
End If
Next
Dateiname = Right(Pfadname, Len(Pfadname) - Stelle) ' Filtert den Dateinamen heraus.
Windows(Dateiname).Activate
Range("A12:G45").Select ' Fehlermeldung Laufzeitfehler 1004
Selection.Copy
Windows("yyy.xls").Activate
Cells("2:2").Select
ActiveSheet.Paste
End Sub