Steht der Code in einem Modul, dann bezieht sich Cells() auf das aktive/sichtbare Blatt.

Wenn das in deinem Fall nicht "Zieldatei.xlsx" ist, dann bekommst du einen Laufzeitfehler.

Deshalb:

  With Workbooks("Zieldatei.xlsx").Worksheets("Tabelle1")
    .Range(.Cells(2, Monate), .Cells(13, Monate)).Value = Workbooks("Quelldatei.xlsm").Worksheets("Tabelle1").Range("F22:F33").Value
  End With