suppose your data is in column A from A1 down
at the cell below the last cell type the string(this is most important
otherwise the programme will go on and on)
stop
now use this vba programme
Public Sub test()
Range("a1").Activate
line1:
ActiveCell.Offset(1, 0).Activate
If ActiveCell = "stop" Then Exit Sub
ActiveCell.EntireRow.Insert
ActiveCell.Offset(1, 0).Activate
GoTo line1
End Sub
do u get what you want.