Private Sub CommandButton1_Click()
    Dim wsh As Worksheet, strMonthName$, strFamilyName$, lngRow1&, lngRow2&
    Dim i As Long
    
    strMonthName = ComboBox1.Value
    strFamilyName = ComboBox2.Value
    
    'Application.ScreenUpdating = False
    
    Set wsh = Worksheets.Add
    wsh.Name = strMonthName & Format(Now(), " dd/mm/yy hh.nn.ss")
    'Имя листа не должно превышать 31 символа
    
    With Worksheets(strMonthName)
       .Rows(1).Copy wsh.Cells(1, "A"): lngRow2 = 2
         
       If Me.CheckBox1 Or Me.CheckBox2 Then
         For lngRow1 = 2 To .Cells(.Rows.Count, "A").End(xlUp).Row
            If Trim(CStr(.Cells(lngRow1, "I"))) = strFamilyName Then
                If Me.CheckBox1 Then
                  For i = 10 To 24
                    If Trim(CStr(.Cells(lngRow1, i))) = "" Then
                        .Rows(lngRow1).Copy wsh.Cells(lngRow2, "A"): lngRow2 = lngRow2 + 1
                        Exit For
                    End If
                  Next
                Else
                  For i = 10 To 24
                    If Trim(CStr(.Cells(lngRow1, i))) = "" Then Exit For
                  Next
                  If i = 25 Then .Rows(lngRow1).Copy wsh.Cells(lngRow2, "A"): lngRow2 = lngRow2 + 1
                End If
            End If
         Next
       End If
    End With
    
    'Application.ScreenUpdating = True
End Sub