=МАКС(100;ПРОСМОТР(A1%%;{0:5:25:50:250:500};A1*{5:4:3:2:1:0,5}%+500*{0:1:5:20:70:110}))

Источник = Json.Document(Web.Contents("https://suppliers-stats.wildberries.ru/api/v1/supplier/orders?dateFrom="&DateTime.ToText(DateTime.LocalNow(),"yyyy-MM-dd","en-us")&"&flag=0&key=XXXXXXXXXXXXXXXXXXXXXXXX"))

let
    Source =
        Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    Columns =
        List.Skip(Table.ColumnNames(Source),1),
    Replace =
        Table.ReplaceValue(Source,1,each [Столбец1],Replacer.ReplaceValue,Columns),
    ToColumns =
        Table.ToColumns(Table.SelectColumns(Replace,Columns)),
    DropNulls =
        List.Transform(ToColumns,List.RemoveNulls),
    ToTable =
        Table.FromColumns(DropNulls,Columns)
in
    ToTable

    Const PR_SMTP_ADDRESS$ = "http://schemas.microsoft.com/mapi/proptag/0x39FE001E"
    With GetObject(, "Outlook.Application")
        Set oMailItm = .ActiveInspector.CurrentItem
        With .CreateItem(0)
            myAddr = oMailItm.Session.CurrentUser.PropertyAccessor.GetProperty(PR_SMTP_ADDRESS)
            For Each r In oMailItm.Recipients
                sAddr = r.PropertyAccessor.GetProperty(PR_SMTP_ADDRESS)
                If myAddr <> sAddr Then s = s & """" & r.Name & """<" & sAddr & ">;"
            Next
            .To = "Коллега<name@domain.zone>;"
            .CC = s
            .Recipients.ResolveAll
            .Display
            AppActivate .GetInspector.Caption
        End With
    End With
    

    With GetObject(, "Outlook.Application")
        'текущее письмо, открытое в отдельном окне
        Set oMailItm = .ActiveInspector.CurrentItem
        'ответное письмо, созданное действием Ответить всем
        Set oReply = oMailItm.Actions("Ответить всем").Execute
        'отобразить ответное письмо
        oReply.display: AppActivate oReply.GetInspector.Caption
    End With

Sub pivot_()

    Dim oWb As Workbook, oWsh As Worksheet, pt As PivotTable, _
        pitm As PivotItem, pitm_ As PivotItem, oRng As Range
        
    Set oWb = ThisWorkbook
    Set oWsh = oWb.Sheets("Сводная")
    Set pt = oWsh.[A1].PivotTable
    Set oRng = ActiveWindow.VisibleRange.Cells(1, 1)
    
    With Application
        .ScreenUpdating = False
        .Calculation = xlCalculationManual
    End With

    For Each pitm In pt.PivotFields!Dpt.VisibleItems
        With oWb.Sheets.Add(, oWb.Sheets(oWb.Sheets.Count))
            .Name = pitm.Caption
            pt.TableRange2.Copy .[A1]
            For Each pitm_ In .PivotTables(1) _
                    .PivotFields!Dpt _
                    .VisibleItems
                pitm_.Visible = pitm_.Caption = .Name
                Application.Goto .[A1], True
            Next
        End With
    Next
    
    Application.Goto oRng, True
    
    With Application
        .ScreenUpdating = True
        .Calculation = xlCalculationAutomatic
    End With
End Sub