Sheets("SMT").Select
Range("B290").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Windows("11-17 - 複製.xls").Activate
Range("G5:Z12").Select
Application.CutCopyMode = False
Selection.Copy
Application.CutCopyMode = False
Selection.Copy
Windows("2021-製造各部門效能總表-11月 - 複製.xls").Activate
Range("H290").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Windows("11-17 - 複製.xls").Activate
Range("A15:E22").Select
Application.CutCopyMode = False
Selection.Copy
Windows("2021-製造各部門效能總表-11月 - 複製.xls").Activate
ActiveWindow.SmallScroll Down:=9
Range("B299").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Windows("11-17 - 複製.xls").Activate
Range("G15:Z22").Select
Application.CutCopyMode = False
Selection.Copy
Windows("2021-製造各部門效能總表-11月 - 複製.xls").Activate
Range("H299").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Windows("11-17 - 複製.xls").Activate
End Sub