Private Sub CommandButton1_Click()
    Dim wsh As Worksheet, strMonthName$, strFamilyName$, lngRow1&, lngRow2&
    
    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
        J2 = .Cells(.Rows.Count, "A").End(xlUp).Row
         For lngRow1 = 2 To J2
         Debug.Print CStr(.Cells(lngRow1, "J")), CStr(.Cells(lngRow1, "I"))
         
     ''''''''''''''''''''''''''''''СДВИГ '''''''''''''''''''''''
             If CStr(.Cells(lngRow1, "I")) = strFamilyName Then
                .Rows(lngRow1).Copy wsh.Cells(lngRow2, "A")
                 lngRow2 = lngRow2 + 1
             End If
         Next
    End With
    
    'Application.ScreenUpdating = True
End Sub