macro inserting and copying rows

Hi there, I use the attached macro for inserting and copying multiple rows
E.g as the active cell is 5 so the macro replaces this row by 5 rows with the same data.
Now I need a small change in this macro
All the cells of the column of the active cell should always be copied as 1 instead of the original 5(in this example)
As I am a newbie in vba any help really appreciated
Thanks beforehand

Try to add the row marked in blue:

Please Login or Register  to view this content.

Regards,
Antono

Or maybe like this, without a loop:

Please Login or Register  to view this content.