编写VBA程序

Sub 宏4()
'
' 宏4 宏
'Dim i As Long
For i = 2 To 10


'
    Selection.Copy
    ActiveCell.Rows("1:1").EntireRow.Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveCell.Offset(2, 0).Rows("1:1").EntireRow.Select
    Selection.Insert Shift:=xlDown
    Next
End Sub