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