Macro indset linje

Hej.

Jeg har et problem med en inset funktion.
Jeg vil gerne have flere knapper der indsetter række
forskellige steder på et ark.

På billede ses hvorledes det ser ud: http://web.gratisupload.dk/f/8s8rkcj4lr/

Den macro jeg bruger ser sådan ud:

Private Sub CommandButton22_Click()

Sheets("1").Range("A20").Select
ActiveCell.EntireRow.Insert Shift:=xlDown

End Sub


Problemet er at når jeg har sat fx 4 linjer ind med øvereste knap, så er A20 ikke den linje der ligger under ustype 2.
Hvordan sikre jeg at det altid er lige under Hustye 2 at den nye linje bliver indsat uanfægtet hvor på arket Hustype 2 står.

Håber meget på jeres hjælp.

mvh
Søren Jensen