关于用宏的复制粘贴，

Sub 宏5()
'
' 宏5 宏
'
'
ActiveCell.Offset(0, 2).Columns("A:AM").EntireColumn.Select
Selection.Delete Shift:=xlToLeft
Worksheets("模板").Range("A1:R1").Copy
ActiveCell.Offset(0, -2).Select
ActiveSheet.Paste
Worksheets("模板").Range("C2:R2").Copy
ActiveCell.Offset(1, 2).Select
ActiveSheet.Paste
Dim i
For i = 2 To Range("A1").CurrentRegion.Rows.Count - 1
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
Next
End Sub
这是我自己编的垃圾复制粘贴宏麻烦大佬们帮我看看，为什么运行宏后是一条一条复制过来的 他不能和书上举得例子一样1秒运行完全部复制好吗