Macro to copy row with relative positioning and insert above active cell

[tlrowe9065]

Newbie to macros. I have 4 different "template" rows at the bottom of my very long spreadsheet that contain various formulas. Needing macros that can copy each of the rows and insert above the active cell wherever it is. Having trouble with the positioning as each time a row is inserted, the template rows move.

Eventual goal is to have the macros assigned to 4 different floating buttons where we can simply position the cursor and click the button for the type of row we want copied/inserted at that location.

Any help is greatly appreciated!!

 

[Akuini]

Welcome to MrExcel.

Having trouble with the positioning as each time a row is inserted, the template rows move.

Put the 4 different "template" rows to 4 named range & use those named range in the macro.

Eventual goal is to have the macros assigned to 4 different floating buttons

Could you show us your macro?

 

[tlrowe9065]

Thank you for your reply. After setting the named ranges on my "template" rows, I was able to do it without a macro. I found some code on another post that I put in the Click event for my buttons. Seems to work for what I need. Thanks again for the info!

Private Sub InsertRange1()

Dim ws As Worksheet
Set ws = Sheets("Sheet1")
ws.Range("Test1").Copy 'Edit your named range here (i.e. replace "Test1")
ActiveCell.Insert Shift:=xlDown
Application.CutCopyMode = False

End Sub

 

[Akuini]

You're welcome, glad to help & thanks for the feedback.