insert row macro - relative to button

I am looking for a bit of help with an insert row macro.

I need a macro, to be attached to a button, which will insert a new row above the button and copy the formulas down from the row above. The same button will be located in multiple sections of the same sheet.

If I simply record the macro, it works, but it inserts the new row above which ever cell is highlighted at the time when replayed.

I can have the actions apply to a named cell using . . .

Range("INSERT_POINT").Offset(0).EntireRow.Insert

. . . which works, except, if I want to use this in multiple locations I have to name a lot of cells unique names and have a different macro for each.

So I guess I am looking for it to perform the macro actions relative to the location of the button itself, not a highlighted cell or named cell.

Hi there,

I think the following code should do what you require. Just assign this macro to the buttons located where you wish to have new rows inserted on your worksheet.

Sub InsertRow()

    ActiveSheet.Shapes(Application.Caller).TopLeftCell.EntireRow.Insert

End Sub

Hope this helps. Please let me know how you get on.

Regards,

Greg M