Insert a row above the next non zero cell in a coumn

Dear Friends,
i really need to have a macro to insert the rows on above the next non zero cell in a column (say "A") from the active cell. i am attaching a sample file and briefing below to make you understand my situation.on the sample file Sheet "Before Macro" if the active cell selected ("B8") then after running macro i need to get inserted two rows on above 3 in column A (that is "A8") as it shows the sheet "After Macro".By Yasar