Sub PQLoadSplit()

    Dim reports(1 To 11, 1 To 2) As String

    With Application

        .DisplayAlerts = False
        .Calculation = xlManual
        .EnableEvents = False


'
' тут вызов макроса создания запроса PowerQuery
'

        reports(1, 1) = "07_"
        reports(2, 1) = "08_"
        reports(3, 1) = "09_"
        reports(4, 1) = "10_"
        reports(5, 1) = "12_"
        reports(6, 1) = "13_"
        reports(7, 1) = "14_"
        reports(8, 1) = "15_"
        reports(9, 1) = "19_"
        reports(10, 1) = "20_"
        reports(11, 1) = "21_"

        reports(1, 2) = "NEW7"
        reports(2, 2) = "NEW8"
        reports(3, 2) = "NEW9"
        reports(4, 2) = "NEW10"
        reports(5, 2) = "NEW12"
        reports(6, 2) = "NEW13"
        reports(7, 2) = "NEW14"
        reports(8, 2) = "NEW15"
        reports(9, 2) = "NEW19"
        reports(10, 2) = "NEW20"
        reports(11, 2) = "NEW21"


        For f = 1 To 11

            Sheets.Add.Name = reports(f, 2)

            Sheets("PowerQuery").Select
            ActiveSheet.ListObjects(1).Range.AutoFilter Field:=1, Criteria1:= _
                                                        "=*" & reports(f, 1) & "*", Operator:=xlAnd
            Range(ActiveSheet.ListObjects(1).Name & "[#All]").Select
            Application.CutCopyMode = False
            Selection.Copy

            Sheets(reports(f, 2)).Select
            ActiveSheet.Paste
            Columns("A:H").Select
            Range("H1").Activate
            Columns("A:H").EntireColumn.AutoFit
            Range("A1").Select
            Application.CutCopyMode = False
            Selection.EntireColumn.Delete

        Next f
        
        '
        '   тут вызов макроса сохранения листов с необходимыми именами
        '

        .DisplayAlerts = True
        .EnableEvents = True
        .Calculation = xlCalculationAutomatic

    End With

End Sub