Userform - always add data to next available empty row

hi
add a commandbutton to yr UserForm and then add this piece of code. see if it helps you!

Private Sub CommandButton1_Click()
 Application.ScreenUpdating = 0
'switch off screen updating to speed up code and prevent screen flickering
    
    Dim rNextCl As Range
    Dim NextRw As Long
   
    With Sheet2    'find next empty row using Column A
        NextRw = .Cells(.Rows.Count, 1).End(xlUp).Row + 1

        .Cells(NextRw, 1).Value = Me.ComboBox1.Value
        
        
        .Cells(NextRw, 2).Value = Me.TextBox1.Value
        .Cells(NextRw, 2).NumberFormat = "dd\/mm\/yyyy"

        
        .Cells(NextRw, 3).Value = Me.TextBox2.Value
        .Cells(NextRw, 3).NumberFormat = "hh:mm"
        .Cells(NextRw, 5).Value = Me.ComboBox2.Value
        .Cells(NextRw, 6).Value = Me.ComboBox3.Value
        .Cells(NextRw, 7).Value = Me.ComboBox4.Value
        .Cells(NextRw, 8).Value = Me.ComboBox5.Value
        .Cells(NextRw, 9).Value = Me.ComboBox6.Value
        .Cells(NextRw, 10).Value = Me.ComboBox7.Value
        .Cells(NextRw, 11).Value = Me.ComboBox8.Value
        .Cells(NextRw, 12).Value = Me.ComboBox9.Value
                
    End With
   
Application.ScreenUpdating = 1
Unload Me
UserForm1.Show
End Sub