Вывод отчета в Excel

Private Sub CommandButton1_Click()
Set wsh = Worksheets.Add
wsh.Name = UserForm3.ComboBox1 & ":" & UserForm3.ComboBox2
With Worksheets(UserForm3.ComboBox2)
.Rows(1).Copy Cells(1, 1): r2 = 2
For r1 = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
If .Cells(r1, 10) = UserForm3.ComboBox1 Then .Rows(r1).Copy Cells(r2, 1): r2 = r2 + 1
Next
End With
End Sub

If CStr(.Cells(lngRow1, "I")) = strFamilyName Then

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)
        .UsedRange.AutoFilter Field:=9, Criteria1:=strFamilyName
        .UsedRange.Copy wsh.Cells(1, 1)
    End With
    
    'Application.ScreenUpdating = True
End Sub

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
        
         For lngRow1 = 2 To .Cells(.Rows.Count, "A").End(xlUp).Row
            If Trim(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