¿Cómo limitar la entrada de un formulario a solo 10 registros, después de esos 10 ya no admita más?

Le hice varios ajustes a tu macro:

• Si tienes solamente un userform no es necesario poner Me.
• Tampoco es necesario que pongas With Me
• Establecí en el objeto h2 la hoja, de esa forma no es necesario activarla
• Si vas a presionar el botón para almacenar los cambios, no es necesario preguntar.
• Tampoco veo necesario preguntar si quieres otro registro, simplemente dejas el form activo y si ya no quiere otro registro, simplemente que lo cierre. De esa forma no tienes que estar cerrando y abriendo el form.

Supongo que solamente puedes agregar registros de las filas 5 a la 15, entonces cuando llegue a la fila 16 te va a enviar el mensaje "Se llegó al limite de 10 registros"

Private Sub CommandButton2_Click()
'Act.Por.Dante Amor
    'INICIO DE VALIDACIONES
    Application.ScreenUpdating = False
    ActiveWorkbook.RefreshAll
    If ComboBox1 = "" Then
        MsgBox "Not Selection"
        ComboBox1.SetFocus
        Exit Sub
    End If
    If ComboBox2 = "" Then
        MsgBox "Not Selection"
        ComboBox2.SetFocus
        Exit Sub
    End If
    If ComboBox3 = "" Then
        MsgBox "Not Selection"
        ComboBox3.SetFocus
        Exit Sub
    End If
    If ComboBox4 = "" Then
        MsgBox "Not Selection"
        ComboBox4.SetFocus
        Exit Sub
    End If
    If ComboBox9 = "" Then
        MsgBox "Not Selection"
        ComboBox9.SetFocus
        Exit Sub
    End If
    If TextBox1 = "" Then
        MsgBox "Not selection quantity"
        TextBox1.SetFocus
    End If
    If TextBox2 = "" Then
        MsgBox "Selected Quantity"
        TextBox2.SetFocus
        Exit Sub
    End If
    If TextBox3 = "" Then
        MsgBox "Selected Quantity"
        TextBox3.SetFocus
        Exit Sub
    End If
    'If MsgBox("You want to process data?", vbYesNo, strTitulo) = vbNo Then
    '    Exit Sub
    'End If
    '
    Set h2 = Sheet2
    h2.Unprotect Password:="123"
    fila = 5
    'hasta que no encuentre una fila vacía...
    Do While Not IsEmpty(h2.Cells(fila, "A"))
        fila = fila + 1
    Loop
    If fila = 16 Then
        MsgBox "Se llegó al limite de 10 registros, no se pueden agregar más registros", vbExclamation
        Exit Sub
    End If
    'como ahora ya estamos en la fila vacía, solo nos queda escribir los datos:
    h2.Cells(fila, "A") = Historial
    h2.Cells(fila, "B") = Me.ComboBox1.Value
    h2.Cells(fila, "C") = Me.ComboBox2.Value
    h2.Cells(fila, "D") = Me.ComboBox3.Value
    h2.Cells(fila, "E") = Me.ComboBox4.Value
    h2.Cells(fila, "F") = Me.ComboBox9.Value
    h2.Cells(fila, "G") = Me.TextBox1.Value
    h2.Cells(fila, "H") = Me.TextBox2.Value
    h2.Cells(fila, "A") = Me.TextBox3.Value
    h2.Cells(fila, "J") = Me.Label21
    h2.Protect Password:="123"
    '
    ComboBox1.Value = ""
    ComboBox2.Value = ""
    ComboBox3.Value = ""
    ComboBox4.Value = ""
    ComboBox9.Value = ""
    TextBox1.Value = ""
    TextBox2.Value = ""
    '
    Application.ScreenUpdating = True
    MsgBox ("Data Processed")
'    almacenar = MsgBox("Add other?", vbYesNo, strTitulo)
'    If almacenar = vbNo Then
'        Unload Me
'    End If
End Sub

.

'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

.

Avísame cualquier duda

.

Este es un breve ejemplo de como podría ser, la macro lee el valor en una celda en este caso a1 y valida que se mayor a 10 de cumplirse la condición hasta ahí llega el código y la macro acaba, en caso de ser menor a 10 la macro ejecuta tu código y aumenta un valor en la celda a1, en el modulo initialize puedes limpiar el valor al cargarse el formulario o en el evento close poniendo range("a1")=0

Private Sub CommandButton2_Click()
numero = Range("a1")
If numero > 10 Then End
' inserta tu codigo
'
'
Range("a1") = numero + 1
end sub