If USERFORMANTWOORD = "A" Then                  'kiest welke categorie
        categorienummer = "1"
    ElseIf USERFORMANTWOORD = "B" Then
        categorienummer = "24"
    ElseIf USERFORMANTWOORD = "C" Then
        categorienummer = "47"


    testnummer = Range("A" & categorienummer).End(xlDown).Offset(1, 0).Row 'gaat naar onderste rij
    Rows(testnummer).Insert