新手 VBA 跨表复制显示下标越界

Sub 宏1()
'
' 宏1 宏
'
'
Windows("模板表.xlsx").Activate
Range("G1:G4").Select
Selection.Copy
Windows("事项.xlsx").Activate
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B8").Select
End Sub