Sub Macro1()
For irow = Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1
For k = 1 To 4
Cells(irow, "A").EntireRow.Insert
Next k
Next irow
End Sub

best wishes
--
Bernard V Liengme
Microsoft Excel MVP
http://people.stfx.ca/bliengme
remove caps from email

"Ranjit kurian" wrote in message
...
Hi

I have a column with few number, i need a macro code which will insert 4
rows after every number

example:
Amount
1
2
3
4
5
Answer:
1



2



3



4