Kode tilknyttet knap, som indsætter række under knappens placering

Hej med jer

Vil nogen hjælpe mig :)
Jeg søger en løsning til følgende:

Jeg har knyttet en macro til en knap i mit ark. Denne makro indsætter en række der hvor en celle er markeret. Jeg vil gerne have den til at indsætte en række i rækken under den række hvor knappen er placeret. Således af brugerne af arket kan klikke på knappen for hver måned og få en ny række ind. Koden jeg arbejder på er denne:

Sub TilføjRækkeHer()
On Error GoTo Slut
home = ActiveCell.Address
homeArk = ActiveSheet.Name

Application.ScreenUpdating = False

        Rows(ActiveCell.Row).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromAbove
        Rows(ActiveCell.Row).Offset(1, 0).Copy
        Rows(ActiveCell.Row).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
        Application.CutCopyMode = False
       
Sheets(homeArk).Select
Range(home).Select

GoTo Slut
Slut:
Application.ScreenUpdating = True
End Sub

Mange venlige hilsner
Anna