let
    src = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    typed = Table.TransformColumnTypes(src,{{"Наименование", type text}, {"Дата", type date}, {"Статус", type text}}),
    rename = Table.RenameColumns(typed,{{"Статус", "исходный статус"}, {"Дата", "начало периода"}}),
    group = 
        Table.Group(
            rename, 
            {"Наименование", "id"}, 
            {{
                "tmp", 
                each 
                    Table.SelectRows(
                        Table.FromColumns( 
                            Table.ToColumns( _ ) & {List.RemoveFirstN( _[#"начало периода"], 1) & {null}} & {List.RemoveFirstN(_[#"исходный статус"], 1) & {null}}, 
                            Table.ColumnNames( _ ) & {"конец периода"} & {"конечный статус"}
                        ),
                        each [конец периода] <> null
                    ),
                type table [#"начало периода"=date, #"исходный статус"=text, #"конец периода"=date, #"конечный статус"=text]
            }}
        ),
    expand = Table.ExpandTableColumn(group, "tmp", {"начало периода", "исходный статус", "конец периода", "конечный статус"})
in
    expand