Inserting rows

[Guest]

I need a macro to insert two rows at every 6th row.

Thank you.

 

[JW]

Starting at which row? You can tweak something like this to your
needs.
Sub foo()
Dim n As Long
n = 6
botrow = Cells(Rows.Count, 1).End(xlUp).Row
Do Until n >= botrow
Range("A1").Offset(n, 0).EntireRow.Insert
n = n + 6
botrow = botrow + 1
Loop
End Sub

 

[Guest]

If I wanted to insert 5 rows for every 1 row. How would I change the below
macro?

Thanks