VBA code for adding one row between each existing row

[jardenp]

I have a need similar to the one in this post: http://www.mrexcel.com/forum/showthread.php?t=483690&highlight=adding+rows+VBA

VoG's code was:

Sub InsRows()
Dim LR As Long, i As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
For i = LR - 1 To 3 Step -2
    Rows(i).Resize(2).Insert
Next i
End Sub

I've tried to change the code, but I don't understand how it works well enough to successfully manipulate it.

Instead of adding 2 rows after every couple rows, I need to add 1 row below each existing row. My first row is column headers and then I have an indeterminate number of rows with data. The data rows are contiguous, so there are no gaps to worry about (if that matters).

Thanks!

 

[VoG]

Try

Sub InsRows()
Dim LR As Long, i As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
For i = LR To 3 Step -1
    Rows(i).Insert
Next i
End Sub

 

[jardenp]

Perfect. Thanks!

This board is amazing.