VB - Insert A Blank Row

Question

This is child's play for all of you, but I don't know Visual Basic at all. How do I write a statement to insert a row between two rows in an Excel spreadsheet repeatedly? An example below:

F-3757 - GROF FILTER REWORKLIJN
F-3758 - POEDERAFSCHEIDER
F-3759 - FIJNFILTER
F-3760 - STOFILTER
F-3762 - AANZUIGFILTER
B-3771 - VENTILATOR STORTKOKER

to:

F-3758 - POEDERAFSCHEIDER

F-3759 - FIJNFILTER

F-3760 - STOFILTER

F-3762 - AANZUIGFILTER

B-3771 - VENTILATOR STORTKOKER

Answer 1

Sub Insert_Blank_Rows()  
   ''//Select last row in worksheet.
   Selection.End(xlDown).Select 

   Do Until ActiveCell.Row = 1 
       ''//Insert blank row.
       ActiveCell.EntireRow.Insert shift:=xlDown 
        ''//Move up one row.
       ActiveCell.Offset(-1, 0).Select 
    Loop 
 End Sub

VBA Express shows an example how to accomplish it