Private Sub CommandButton1_Click()
    Cells(TextBox7.Text + 2, 1) = TextBox1.Text
    Cells(TextBox7.Text + 2, 3) = ComboBox5.Text
    Cells(TextBox7.Text + 2, 4) = ComboBox1.Text + "." + ComboBox2.Text + "." + TextBox3.Text
    Cells(TextBox7.Text + 2, 5) = ComboBox3.Text + "." + ComboBox4.Text + "." + TextBox4.Text
    Cells(TextBox7.Text + 2, 6) = TextBox5.Text
    Cells(TextBox7.Text + 2, 7) = TextBox6.Text
    If OptionButton1.Value = True Then
    Cells(TextBox7.Text + 2, 2) = "Муж."
    End If
    If OptionButton2.Value = True Then
    Cells(TextBox7.Text + 2, 2) = "Жен."
    i = i + 1

    End If

    Call UserForm_Activate

End Sub

Private Sub CommandButton2_Click()
TextBox1.Text = claer
TextBox4.Text = claer
TextBox5.Text = claer
TextBox6.Text = claer
TextBox7.Text = claer
ComboBox1.Text = Clear
ComboBox2.Text = Clear
ComboBox3.Text = Clear
ComboBox4.Text = Clear
ComboBox5.Text = claer
TextBox3.Text = claer
End Sub

Private Sub CommandButton3_Click()
Unload Me
End Sub



Private Sub UserForm_Activate()
i = 1
Do While Cells(i, 1) > ""
i = i + 1
Loop
TextBox7.Text = CStr(i - 2)
End Sub

Private Sub UserForm_Click()

End Sub



Private Sub UserForm_Initialize()
With ComboBox1
    .List = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31)
End With

With ComboBox2
    .List = Array("01", "02", "03", "04", "05", "06", "07", "08", "09", "10", "11", "12")
End With
With ComboBox3
    .List = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31)
End With

With ComboBox4
    .List = Array("01", "02", "03", "04", "05", "06", "07", "08", "09", "10", "11", "12")
End With
With ComboBox5
.List = Array("главный", "побочный", "запасной")
End With
End Sub
ввод