Sub Таблица()




       Sheets("Таблица").Select
    ActiveWindow.SelectedSheets.Delete

'
    Sheets.Add
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "t!R1C1:R84000C3", Version:=xlPivotTableVersion12).CreatePivotTable _
        TableDestination:=Range("A4"), TableName:="СводнаяТаблица2", _
        DefaultVersion:=xlPivotTableVersion12

    Cells(3, 1).Select
    With ActiveSheet.PivotTables("СводнаяТаблица2").PivotFields("Филиал")
        .Orientation = xlRowField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("СводнаяТаблица2").PivotFields( _
        "Наименование клиента")
        .Orientation = xlRowField
        .Position = 2
    End With
    ActiveSheet.PivotTables("СводнаяТаблица2").AddDataField ActiveSheet.PivotTables _
        ("СводнаяТаблица2").PivotFields("Сумма"), "Сумма по полю Сумма", xlSum
    With ActiveSheet.PivotTables("СводнаяТаблица2").PivotFields( _
        "Сумма по полю Сумма")
        .Caption = " Сумма"
        .NumberFormat = "### ### ### ##0"
    End With
    ActiveWorkbook.ShowPivotTableFieldList = False
    Range("B15").Select
    ActiveSheet.PivotTables("СводнаяТаблица2").PivotFields("Наименование клиента"). _
        AutoSort xlDescending, " Сумма", ActiveSheet.PivotTables("СводнаяТаблица2"). _
        PivotColumnAxis.PivotLines(1), 1
        
            With ActiveSheet.PivotTables("СводнаяТаблица2").PivotFields("Филиал")
        .PivotItems("(blank)").Visible = False
    End With
        
                    Range("A1:H1").Select
    ActiveCell.FormulaR1C1 = "Указаны клиенты с суммой не ниже 20 млн. руб. для центрального офиса, и суммой не ниже 50 тыс. руб для филиалов."
    Selection.Font.Bold = True
    Range("A2:H2").Select
    ActiveCell.FormulaR1C1 = "* - Общий итог по клиентам с суммой не ниже 20 млн. руб. для центрального офиса и не ниже 50 тыс. руб. для филиалов."
        
        
    Range("AA1:C1000").Select
    Range("K21").Activate
    With Selection.Font
        .Name = "Arial Narrow"
        .Size = 11
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
    With Selection.Font
        .Name = "Arial Narrow"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
    Range("F26").Select
End Sub