Macro to insert row
 

I need a macro that will:
If cell in column A is not blank. (Column A,B,C and D will contain data)
Then copy contents of that cell and then insert entire row then
copy to the new row and delete original cell. I will need a loop till done.
Thanks for any help on this macro.

Example:
Row 5 cell A5 contains data
Insert row (New Row is now number 5)(Old row now 6)
Copy from old cell and replace to row 5 (A 5)(delete A6)

Thanks