let
    Source = Web.Page(Web.Contents("https://www.kitco.com/mining/")),
    Headers = Table.PromoteHeaders(Source{1}[Data], [PromoteAllScalars=true])
in
   Headers

Function УРОВЕНЬСТРОКИ(ЯЧЕЙКА As Range) As Long
    УРОВЕНЬСТРОКИ = ЯЧЕЙКА.Rows(1).OutlineLevel
End Function

=ЕСЛИ(УРОВЕНЬСТРОКИ(C4)=1;C4;B3)

=ЕСЛИ(ЕЧИСЛО(C4)=ИСТИНА;C4;B3)

Sub ReGroup()
Dim last As Double
last = Cells(Rows.Count, 3).End(xlUp).Row
    Application.ReferenceStyle = xlA1
    Cells.ClearOutline
    Range("B4:B" & last).FormulaR1C1 = "=IF(ISNUMBER(RC[1])=TRUE,RC[1],R[-1]C)"
    ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value
    Range("B3").AutoFilter
    ActiveSheet.Range("$B$3:B" & last).AutoFilter Field:=2, Criteria1:=">=0", _
    Operator:=xlAnd
    Rows("4:1000").Delete Shift:=xlUp
    ActiveSheet.ShowAllData
End Sub

=ИНДЕКС($A$6:$A$11;ПОИСКПОЗ(ПРОСМОТР(2;1/ПОИСК($B$6:$B$11;A3);$B$6:$B$11);$B$6:$B$11;0))

Мера =
IF (
    HASONEVALUE ( 'расписание'[Код врача] );
    CALCULATE (
        COUNTROWS ( 'услуги' );
        'услуги'[Тип_пл.] = "ОМС"
    )
        / (
            DISTINCTCOUNT ( 'расписание'[Дата слота] ) * 3,6
        )
        / DISTINCTCOUNT ( 'спр_врач'[Код врача] );
    CALCULATE (
        COUNTROWS ( 'услуги' );
        'услуги'[Тип_пл.] = "ОМС"
    )
        / SUMX (
            SUMMARIZE (
                'расписание';
                'расписание'[Код врача];
                "new"; DISTINCTCOUNT ( 'расписание'[Дата слота] )
            );
            [new]
        ) * 3,6
)

IF( 'расписание'[Конец слота];>0,63;"Вечер";"Утро")