Bereiche aus einer Arbeitsmappe in ander

Sub AAUnitDaten()
Dim wbQuelle As Workbook
Dim strDatei As String, strMonat As String, strRange As String
strDatei = Range("A2").Text
strMonat = Range("B2").Text
strRange = Range("C2").Text
strDatei = ThisWorkbook.Worksheets("Daten.Austräger.Wochenlohn").Range("A2").Text
Set wbQuelle = Workbooks.Open("N:\Datencenter\" & strDatei)
wbQuelle.Worksheets("Daten").Range("A4:I65").Copy
ThisWorkbook.Worksheets("Daten.Austräger.Wochenlohn").Range("A4").PasteSpecial xlPasteFormulas
Application.CutCopyMode = False
wbQuelle.Close False
Set wbQuelle = Nothing
End Sub