Excel VBA


Between each row insert an empty one
(If the values are in column A)

Sub Insert_Row()
 Dim a As Byte
 Dim c As Integer
 [A1].Select
 a = 2
 c = 0
   While ActiveCell.Value <> ""
      c = c + 2
      ActiveSheet.Rows(c).Insert Shift:=xlDown
      ActiveCell.Offset(a, 0).Select
   Wend
End Sub