Macro: insert a row

[Neocon]

Hi all,

I've attached an example of my monthly costsoverview.

For each costscategory there's a commandbutton.
I like to create a macro that insert a row between the last product and the row with total.
For costscategory 100 should that between row 9 and 10.

It's easy to create a macro for just one costscategory:

Private Sub CommandButton1_Click()
Range("B50").End(xlUp).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

End Sub

But in this example there are 4 categories and 4 commandbutton...

Is this possible?

Thanks in advance.