Kopierbereich Quelldatei automatisch änd

Sub AAUnitUrlaub()
    Dim wbQuelle As Workbook
      Dim strDatei As String, strMonat As String, strRange As String
    
  strDatei = Range("N1").Text
  strMonat = Range("O1").Text
  strRange = Range("P1").Text
    strDatei = ThisWorkbook.Worksheets("Url.Krak.Austrg.").Range("N1").Text
    Set wbQuelle = Workbooks.Open("N:\Datencenter\" & strDatei)
    
    wbQuelle.Worksheets("Personen").Range("F2:K1404").Copy
    ThisWorkbook.Worksheets("Url.Krak.Austrg.").Range("F2").PasteSpecial xlPasteFormulas
        Application.CutCopyMode = False
    
    wbQuelle.Close False
    Set wbQuelle = Nothing
End Sub

 wbQuelle.Worksheets("Personen").Range("F2:K1404").Copy

hisWorkbook.Worksheets("Url.Krak.Austrg.").Range("F2")