Indsæt række mellem bestemt antal rækker VBA

Hejsa eksperter

Jeg har et ark med nogle medarbejder, der skal så være mulighed ved trykke på et knap for at oprette nyt række imellem bestemt antal rækker.

Kolonne a har nogle celler som er deffineret med navn:

Afdeling_1_Start
Afdeling_1_Slut
Afdeling_2_Start
Afdeling_2_Slus

osv.

Jeg har fundet et kode på nettet men den virker ikke, sådan ser den ud:

' ***************************************************************
' Sub to insert a row in Afdeling_1_Start range' ***************************************************************
Sub Afdeling_1_Start_Bottom_Click()
    intRow = Sheets(Sheet1).Range("Afdeling_1_Slut").Row - 1
    InsertNewRow intRow, "Afdeling_1_Start", "Afdeling_1_Slut", Sheet1
End Sub

nogen det kan hjælpe med dette formel eller med et ny.
på forhånd tak