let
    Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
    ChangedType = Table.TransformColumnTypes(Source,{{"Date/Time", type datetime}}),
    SortedRows = Table.Sort(ChangedType,{{"Имя", Order.Ascending}, {"Date/Time", Order.Ascending}}),
    AddedIndex = Table.AddIndexColumn(SortedRows, "Индекс", 0, 1),
    AddedCustom = Table.AddColumn(AddedIndex, "переход", each if [State] = "НЕАКТ" then [Индекс] else null),
    FilledUp = Table.FillUp(AddedCustom,{"переход"}),
    GroupedRows = Table.Group(
        FilledUp, 
        {"переход", "Имя"}, 
        {{"min_act", each List.Min(Table.SelectRows(_, each [State] = "АКТ")[#"Date/Time"]), type nullable datetime}, 
         {"non_act", each Table.SelectRows(_, each [State] = "НЕАКТ")[#"Date/Time"]{0}?, type nullable datetime }}
    )
in
    GroupedRows

let
    #"HTML Code" = Text.FromBinary(Web.Contents("https://gko.yanao.ru/activity/7705/?nav-documents=page-1")),
    #"Imported Text" = Lines.FromText(#"HTML Code"),
    #"Converted to Table" = Table.FromList(#"Imported Text", Splitter.SplitByNothing(), null, null, ExtraValues.Error),
    #"Filtered Rows" = Table.SelectRows(#"Converted to Table", each Text.Contains([Column1], "/upload/uf/")),
    #"Extracted Text Between Delimiters" = Table.TransformColumns(#"Filtered Rows", {{"Column1", each "https://gko.yanao.ru/" & Text.BetweenDelimiters(_, "href=""", """>"), type text}}),
    #"Added Custom" = Table.AddColumn(#"Extracted Text Between Delimiters", "Custom", each Excel.Workbook(Web.Contents([Column1])))
in
    #"Added Custom"