Dim i As Byte, x As Long
Private Sub CommandButton1_Click()
x = Cells(Rows.Count, 1).End(xlUp).Row + 1
For i = 1 To 9: Cells(x, i) = Controls("Textbox" & i).Value: Next i
For i = 10 To 11: Cells(x, i + 2) = Controls("Textbox" & i).Value: Next i
Cells(x, 14) = CheckBox1
Cells(x, 15) = IIf(OptionButton1.Value, "yes", "no")
Unload Me: UserForm1.Show
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub