let
    Source = Excel.Workbook(File.Contents("C:\Users\sova.igor\Downloads\Пример.xlsx"), true, null),
    AddFilial = Table.CombineColumns(Source, Table.ColumnNames(Source), (c)=> Table.AddColumn(c{1}, "Filial", each c{0}, type text), "Data")[Data],
    SkipDates = List.Transform(AddFilial, (e)=> Table.Skip(e, 1)),
    Combine = Table.Combine(SkipDates),

    cols = List.RemoveItems(Table.ColumnNames(Combine), {"Column2", "Filial"}),

    RemoveErrors = Table.TransformColumns( 
        Combine,                         //первый аргумент функции TransformColumns, наша таблица
        List.Transform(    
            cols,                //первый аргумент функции List.Transform, названия заголовков таблицы
            (x) => { x, (y) => Replacer.ReplaceValue(y, "#DIV/0", null), type number}    //второй аргумент функции List.Transform, x - это название заголовка, 
            )
        ),
    Group = Table.Group(RemoveErrors, {"Column2", "Filial"}, List.Transform(cols, (e)=> {e, each List.Sum(Table.Column(_, e)), type number})),
    RenameKey = Table.RenameColumns(Group ,{{"Column2", "Measure"}})
in
    RenameKey

    CombineFunction = (x)=> 
                [
                PeriodStart = x{0},
                Duration = x{1},
                PeriodEnd = PeriodStart + #duration(0,0,0,Duration),
                FirstInterval = DateTime.From(DateTime.ToText(x{0}, "dd.MM.yyyy HH:00"), "ru-RU"),
                RecordsList = List.Generate(()=> 
                                [i=1, Interval = FirstInterval, IntervalDuration = if PeriodEnd < FirstInterval + #duration(0,1,0,0) then Duration else Duration.TotalSeconds((FirstInterval + #duration(0,1,0,0) - PeriodStart))],
                                (x)=>x[Interval] < PeriodEnd,
                                (x)=>[i=x[i]+1, Interval = x[Interval] + #duration(0,1,0,0), IntervalDuration = if PeriodEnd > (Interval+#duration(0,1,0,0)) then 3600 else Duration.TotalSeconds(PeriodEnd - Interval)],
                                (x)=>[Interval = x[Interval], Duration = x[IntervalDuration]]),
                Table = Table.FromRecords(RecordsList)
                ][Table],

let
    Источник = Excel.CurrentWorkbook(){[Name="Исходник"]}[Content],
    Список_секунд = Table.AddColumn(Источник, "ListDateTimes", 
        each 
            List.DateTimes([DateTimeStart],[Duration],#duration(0, 0, 0, 1)),    //Формируем список всех секунд, которые сотрудник провел в указанном статусе в рамках сессии
        type list),
    Начало_часа = Table.TransformColumns(Список_секунд, 
        {
        {"ListDateTimes", each List.Transform(_, each Time.StartOfHour(_)), type list}    //Вычисляем начало часа для каждой секунды (определяем интервал для каждой секунды)
        }),
    Развернуть_ListDateTimes = Table.ExpandListColumn(Начало_часа, "ListDateTimes"),
    Группировка_по_интервалам = Table.Group(Развернуть_ListDateTimes,     
        {"Condition", "ListDateTimes"}, 
        {{"Duration", each Table.RowCount(_), Int64.Type}}    //Группируем секунды по началу часа, к которому они принадлежат
        ),
    Измененный_тип = Table.TransformColumnTypes(Группировка_по_интервалам,{{"ListDateTimes", type datetime}})
in
    Измененный_тип

let
    Источник = Excel.CurrentWorkbook(){[Name="Пример"]}[Content],
    Измененный_тип = Table.TransformColumnTypes(Источник,{{"scr", Int64.Type}, {"calldate", type date}}),
    Последняя_активность = Table.Group(Измененный_тип, {"scr"}, {{"LastDate", each List.Max([calldate]), type date}}),
    Статус = Table.AddColumn(Последняя_активность, "status", each if [LastDate]+#duration(60, 0, 0, 0) < Date.From(DateTime.LocalNow()) then "Не активный" else "Активный", type text),
    Итоговая_таблица = Table.Join(Измененный_тип, "scr", Статус, "scr")
in
    Итоговая_таблица

(Link) as table =>

let
    Источник = Excel.Workbook(Web.Contents(Link), null, true),

    <Тело функции>

    Удалить_индекс = Table.RemoveColumns(Сняты_с_линии_коррект, {"Earliest Date", "Индекс"})
in
    Удалить_индекс 

    Удалить_индекс = Table.RemoveColumns(Сняты_с_линии, {"Дата", "Индекс"})
in
    Удалить_индекс