[VB] Problemi Ultima riga

Ciao a tutti.
Vi spiego subito il problema sul quale vorrei un consiglio.
Sono in excel e ho usato VB per creare delle maschere d'inserimento dati. Le due maschere Userform1 e Userform2 si richiamano in quanto la userform2 è stata creata per un inserimento più particolareggiato.Ovviamente i dati inseriti vengono riportati in una tabella excel e per far si che rispettino l'inserimento nella riga libera ho inserito un controllo apposito. IL problema ora nasce sulla userform2. Ogni volta che clicco sul pulsante inserisci dati li riscrivi sempre sulla stessa riga sovrascrivendo invece che andando a quella successiva. Immagino ci sia qualche conflitto. ma non riesco a venirne a capo. Posto il codice della userform2 interamente.
I pulsanti sono un CHIUDI, PULISCI e Inserimento dati che riporta ala userform1

Private Function UltimaRiga() As Long
Dim vTemp As Variant
Dim iRR As Long
    
    ' Calcolo la riga in cui inserire i dati (la prima riga libera)
    iRR = 4  ' riga di inizio
    ' Utilizzo la notazione riga,colonna
    vTemp = Worksheets("Item Guasti").Cells(iRR, 4).Value
    Do While Not IsEmpty(vTemp)
        iRR = iRR + 1
        vTemp = Worksheets("Item Guasti").Cells(iRR, 4).Value
    Loop
    UltimaRiga = iRR
End Function

Private Sub CommandButton5_Click()

Dim vTemp As Variant
Dim iRR As Long
    
    ' Calcolo la riga in cui inserire i dati (la prima riga libera)
    iRR = UltimaRiga

    ' inserire i dati'
    Worksheets("Item Guasti").Cells(iRR, 1).Value = TextBox7.Text   ' Colonna 1 (A)
    Worksheets("Item Guasti").Cells(iRR, 2).Value = TextBox8.Text   ' Colonna 2 (B)
    If CheckBox1.Value = True Then Worksheets("Item Guasti").Cells(iRR, 3).Value = "X" Else Worksheets("Item Guasti").Cells(iRR, 3).Value = ""
    If CheckBox2.Value = True Then Worksheets("Item Guasti").Cells(iRR, 4).Value = "X" Else Worksheets("Item Guasti").Cells(iRR, 4).Value = ""
   
Unload Me
UserForm1.Show

End Sub

Private Sub CommandButton6_Click()
CheckBox1.Value = False
CheckBox2.Value = False

End Sub

Private Sub CommandButton7_Click()
Unload Me
UserForm1.Show
End Sub

Private Sub UserForm_Click()

End Sub

trovate qualcosa che non va?

Grazie