insert multiple cells every ### rows

[dgraves77]

How do I insert multiple rows between every row in a column? I have a
column with data and I want to insert 5 rows between each row.

 

[Don Guillett]

Sub insertfiverows()
For i = Cells(rows.Count, "a").End(xlUp).Row To 2 Step -1
rows(i).Resize(5).Insert
Next i
End Sub

 

[JLGWhiz]

Sub InsrtRws() 'Inserts blank rows
lastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
For i = lastRow To 2 Step -1
x = Cells(i, 1).Value
If x > 0 Then
With ActiveSheet
.Range(.Cells(i, 1), .Cells(i + 4, 1)).EntireRow.Insert
End With
End If
Next
End Sub