VBA code automatisch opvolgend genereren

[vuspool]

Hallo,

ik heb in excel een lijst gemaakt waarin ik bepaalde kosten kan bijhouden. Hierin maak ik gebruik van checkboxen en drop down menu's die verwijzen naar bepaalde cellen. Ik heb 3 verschillende betalings methodes, die incl. en excl. BTW kunnen zijn.

Nu wil ik onbeperkt een regel kunnen invoeren waarin automatisch de VBA elementen en de achterliggende code worden gegenereerd, eventueel via een knop "nieuw" of iets dergelijks?
In de VBA code moet dus steeds een opvolgend nummer gegenereerd worden.

een voorbeeld van mijn sheet is bijgevoegd.

De code die automatisch gegenereerd moet worden staat hieronder. Dit is van één checkbox, en één drop dowm menu.

Private Sub CheckBox7_Click()
If CheckBox7.Value = True Then
Worksheets("Huis").Range("H10").Value = "Incl."
Worksheets("Huis").Range("I10").Value = "=G10*0.19"
Else
Worksheets("Huis").Range("H10").Value = "Excl."
Worksheets("Huis").Range("I10").Value = ""
End If
End Sub

Private Sub ComboBox1_Change()
If ComboBox1.Value = "methode 1" Then
Worksheets("Huis").Range("J4").Value = "=G4"
Worksheets("gegevens").Range("B4").Value = "=Huis!G4"
ElseIf ComboBox1.Value = "methode 2" Then
Worksheets("Huis").Range("J4").Value = "=G4"
Worksheets("gegevens").Range("C4").Value = "=Huis!G4"
Worksheets("gegevens").Range("B4").Value = ""
Worksheets("gegevens").Range("D4").Value = ""
Worksheets("gegevens").Range("E4").Value = ""
ElseIf ComboBox1.Value = "methode 3" Then
Worksheets("Huis").Range("J4").Value = "=G4+I4"
Worksheets("gegevens").Range("D4").Value = "=Huis!J4"
Worksheets("gegevens").Range("B4").Value = ""
Worksheets("gegevens").Range("C4").Value = ""
Worksheets("gegevens").Range("E4").Value = ""
ElseIf ComboBox1.Value = "methode 4" Then
Worksheets("Huis").Range("J4").Value = "=G4+I4"
Worksheets("gegevens").Range("E4").Value = "=Huis!J4"
Worksheets("gegevens").Range("B4").Value = ""
Worksheets("gegevens").Range("C4").Value = ""
Worksheets("gegevens").Range("D4").Value = ""
End If
End Sub
Iemand die mij hierbij kan helpen?

Bij voorbaat dank!

MVG
Niek