Office: Zeile einfügen, je nach bestimmten Spaltenwert

Hallo!

ich habe in meiner Excel Tabelle mehrere Produktgruppen untereinander in einer Spalte stehen ( die jeweiligen Produktnamen der einzelnen Produkte in der nächsten Spalte). Nun möchte ich über ein Formular, diese Produktgruppen auswählen können und durch diese Auswahl soll er mir möglich sein nach dem letzten Produktgruppen Eintrag eine neue Produktgruppe, Produktname usw. eintragen zu können.

Erste eigene Versuche ergaben folgenden Code (Nur Auszug, ich habe natülich viel mehr Produktgruppen, die aber gleich aufgebaut sind. Das Problem dabei ist, dass ich die Reihenzahl anspreche und diese nach einfügen in der ersten Produktgruppe für die zweite schon nicht mehr stimmt (hoffentlich verständlich). Wie kann ich den Code so verändern, dass er der Auswahl entsprechend, Zeilen einfügt und zusätzlich eine Zwischenzeile die in der Tabelle als optisch als Trennzeile dient.

Quäle mich schon seit einer Woche damit, aber als Anfänger krieg ich das noch nicht hin.Wäre für jede Hilfe sehr dankbar!!

Code:

Private Sub cbAuswahl_Click()

Select Case cbAuswahl.Value


Case ("Produktgruppe1")                                             

    Rows("14:14").Select
    Selection.Insert Shift:=xlDown
    Selection.RowHeight = 13.5
    Rows("15:15").Select
    Selection.Insert Shift:=xlDown
    Selection.RowHeight = 4.5
    Range("E18").Select
    Columns("CW:CW").Select
    Range("CW2").Activate
'    Selection.Insert Shift:=xlToRight
'    Range("B14").Select


Case ("Produktgruppe2")                                         
   
   
    Rows("23:23").Select
    Selection.Insert Shift:=xlDown
    Selection.RowHeight = 13.5
    Rows("24:24").Select
    Selection.Insert Shift:=xlDown
    Selection.RowHeight = 4.5
    Range("E18").Select
    Columns("DC:DC").Select
    Range("DC2").Activate
    Selection.Insert Shift:=xlToRight
    Range("B23").Select