Sub meinSub()
Workbooks.Open Filename:= _
"Pfad\File.xls"
Range("F2:L369").Select
Selection.Copy
Windows("TEMPLATE.xlsm").Activate
Sheets("Sheet1").Select
Range("E10:K377").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("File.xls").Activate 'aktiviert das Workbook wieder'
Range("F370:L373").Select
Windows("TEMPLATE.xlsm").Activate
Sheets("Sheet1").Select
Range("E382.K385").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False 'schließt die Zwischenablage'
Workbooks("File.xls").Close SaveChanges:=False
End Sub