Private Sub CommandButton1_Click()
Dim o As Object
Dim k%, r%
Dim s$
CommandButton1.Enabled = False
If Sheets(2).Range("a1").Value = "" Then
    r = 1
Else
    r = Sheets(2).Range("a65536").End(xlUp).Row + 1
End If
For Each o In UserForm1.Controls
    If TypeOf o Is MSForms.TextBox Then
        Sheets(2).Range("a" & r).Offset(0, k).Value = o.Value
        k = k + 1
    ElseIf TypeOf o Is MSForms.CheckBox Then
        If o.Value = True Then
            If s = "" Then
                s = o.Caption
            Else
                s = s & ", " & o.Caption
            End If
        End If
    End If
Next
Sheets(2).Range("a" & r).Offset(0, k).Value = s
CommandButton1.Enabled = True
End Sub