Insert Multiple Rows in loop

[sirmacademy]

Hello, I'm facing this problem of inserting rows in a loop. Your help are highly appreciated.

Sub InsertMultipleRow()
Dim i As Integer
i = 6
Do While i < 100
Sheets("Sheet1").Rows("i:i").Insert Shift:=xlDown


i = i + 6
Loop

End Sub

 

[Fluff]

Try

Sheets("Sheet1").Rows(i).Insert Shift:=xlDown

 

[kvsrinivasamurthy]

Try this
Sheets("Sheet1").Range("A" & i).EntireRow.Insert Shift:=xlDown