not smart enough, but workable...

Sub Button1_Click()

Set rng = Range("A:A")
rng.Cells(1, 1).Select
i = 1

While Not IsEmpty(ActiveCell)

If i 1 Then
rng.Cells(i, 1).EntireRow.Insert
rng.Cells(i + 1, 1).EntireRow.Insert
rng.Cells(i + 2, 1).EntireRow.Insert
rng.Cells(i + 3, 1).EntireRow.Insert
rng.Cells(i + 5, 1).Select
i = ActiveCell.Row
Else
i = i + 1
End If
Wend

End Sub


- Manges

--
mangesh_yada
-----------------------------------------------------------------------
mangesh_yadav's Profile: http://www.excelforum.com/member.php...fo&userid=1047
View this thread: http://www.excelforum.com/showthread.php?threadid=27652