For Machine_Stoppage.
Code:
Private Sub CommandButton1_Click()
    'check user input
    For Each ctl In Me.Controls
        If ctl.Tag <> vbNullString Then
            If ctl.Value = vbNullString Then MsgBox ctl.Tag: ctl.SetFocus: Exit Sub
        End If
    Next
    For I = 1 To 3
        If Me("OptionButton" & I) Then whatsheet = Me("OptionButton" & I).Caption
    Next
    'write data to worksheet
    With Sheets(whatsheet)
       .Unprotect Password:="abc"
       .Cells(.Cells(.Rows.Count, "B").End(xlUp).Row + 1, 2).Resize(, 17) = Array(ComboBox1.Value, , , , , , , , _
            ComboBox2.Value, ComboBox3.Value, ComboBox4.Value, , IIf(OptionButton4, TextBox1.Text, ""), _
            ComboBox5.Value, ComboBox6.Value, , IIf(OptionButton5, TextBox1.Text, ""))
        .Protect Password:="abc"
    End With
    'Clear all fields
    For Each ctl In Me.Controls
        If TypeName(ctl) = "TextBox" Or TypeName(ctl) = "ComboBox" Then ctl.Value = vbNullString
        If TypeName(ctl) = "OptionButton" Then ctl.Value = False
    Next
End Sub
I guess you can figure it out now for the other UF