Macro To Fetch Data based on 2 Criteria

Public Sub Macro1()


    Dim strDir As String
    Dim strMth As String
    
    strMth = Range("I7").Value
    strDir = Range("I8").Value
    
    Application.ScreenUpdating = False
    
    With Sheets("Monthly Invoice Input")
        .Select
        .Range("A1").Select
        Selection.AutoFilter
        .ListObjects("Table2").Range.AutoFilter Field:=1, Criteria1:=strMth
        .ListObjects("Table2").Range.AutoFilter Field:=7, Criteria1:=strDir
        
        .Cells.SpecialCells(xlCellTypeVisible).Select
        Selection.Copy
        
        Application.Workbooks.Add
        With ActiveSheet
            .Paste
            
            Dim Rng As Range
            Dim c As Range
            Set Rng = .Range("Q1:Q" & .Range("Q1").End(xlDown).Row)
            Set c = .Range("Q1").End(xlDown).Offset(1, 0)
            c.Formula = "=SUM(" & Rng.Address(False, False) & ")"
            
            .Name = strDir & " - " & strMth
        End With
        
        Application.CutCopyMode = False
        ThisWorkbook.Activate
    End With
    
    '// Watch out for the space at the start of the name!
    Sheets(" By Director & Month").Select
    Application.ScreenUpdating = True
    
End Sub