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
    Удалить_индекс