inserting row using macro

[Dannypak]

Hi I"m toally new to Macros...I'm trying to record a macro to insert rows using the following, but it's not copying the formulas in some cells...
I've added a radio button and assigned the macro, but it seems to add a blank row without filling down with the formulas from the cells above. Can anyone help with what I need to change to make sure the inset row picks up formulas from row above?
Range: A to Y
I'm trying to get the macro to add rows above the "radio button" i created on the last cell. The formulas in some cells pickup data entered in other worksheets within the same workbook.

I'm using:

Sub InsertRow()
Activecell.EntireRow.Insert
Activecell.Offset(0,0).Value=""
End Sub

Looking forward to any help!

Thanks,

[antoka05]

Try with this code:

Sub InsertRow()
   ActiveCell.EntireRow.Insert
   ActiveCell.Offset(0, 0).Value = ""
   On Error Resume Next
   For Each f In ActiveCell.Offset(-1, 0).EntireRow.SpecialCells(xlCellTypeFormulas)
      f.Copy f.Offset(1, 0)
   Next
   On Error GoTo 0
End Sub

Regards,
Antonio

[Dannypak]

That worked great!
one little problem it runs into is:
when the cursor is not at the "Insert Row" radio button, it inserts rows, but copies the formula from above rather than filling down:

i.e. =sum(a3+1), then next cell should read =sum(a4+1) but it copies the same =sum(a3+1).

Any way to fix? how about to add 5 new rows rather than just one?

Thanks again!!