求问：为啥这段宏代码运行不了？（宏安全性已经调整了）盼回复，谢谢！
Sub 宏1()
Dim i As Integer
With Sheet1
For i = 18 To 184
Rows("i" & ":" & "i").Select
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
ActiveWindow.SmallScroll Down:=9
Range("A" & "i-1").Select
Selection.Copy
Range("A" & "i").Select
ActiveSheet.Paste
Range("A" & "i-1" & ":" & "A" & "i").Select
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("A" & "i-1" & ":" & "A""i+6"), Type:=xlFillDefault
Range("A" & "i-1" & ":" & "A""i+6").Select
ActiveWindow.SmallScroll Down:=-18
Range("B1:B8").Select
Selection.Copy
ActiveWindow.SmallScroll Down:=9
Range("B" & "i-1").Select
ActiveSheet.Paste
Next
End With
End Sub
