How to insert alternate blank rows using VBA code?

Insert alternate blank rows using VBA code.

Many time in MS Excel training program participants asked this Question. How to insert alternate blank rows.

This is our input screen.

After VBA Macros sheet will look like this.

Open VBE (Visual Basic Editor ) Press Alt + F11 or  ALT +Fn+F11 , Visual Basic Editor screen will apear like below screen.

Sub insertrow()

Do While Not IsEmpty(ActiveCell)
ActiveCell.EntireRow.Insert
ActiveCell.Offset(2, 0).Select
Loop
End Sub