insert blank rows

Hi naflas
A quick search of the forum found this by jb

Sub InsertRowsAndFormula()'By JB
Dim LR As Long  
Dim RW As Long
    LR = Range("A" & Rows.Count).End(xlUp).Row + 1
    For RW = LR To 2 Step -1
        Rows(RW).Insert xlShiftDown
    Next RW
end if

naflas
I dont understand doesn't the code add extra rows between the rows to add there address?