et
    Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
    #"Changed Type" = Table.TransformColumnTypes(Source,{{"Наименование", type text}, {"Месяцы", type any}, {"Column1", type any}, {"Column2", type any}, {"Column3", type any}, {"Column4", type any}, {"Column5", type any}, {"Column6", type any}, {"Column7", type any}}),
    #"Promoted Headers" = Table.PromoteHeaders(#"Changed Type", [PromoteAllScalars=true]),
    #"Unpivoted Other Columns" = Table.UnpivotOtherColumns(#"Promoted Headers", {"Column1"}, "Месяц", "Значение"),
    #"Removed Top Rows" = Table.Skip(#"Unpivoted Other Columns",8),
    #"Added Index" = Table.AddIndexColumn(#"Removed Top Rows", "Index", 0, 1),
    #"Inserted Modulo" = Table.AddColumn(#"Added Index", "Modulo", each Number.Mod([Index], 2), type number),
    #"Added Conditional Column" = Table.AddColumn(#"Inserted Modulo", "план/факт", each if [Modulo] = 0 then "план" else if [Modulo] = 1 then "факт" else null),
    #"Split Column by Delimiter" = Table.SplitColumn(#"Added Conditional Column", "Месяц", Splitter.SplitTextByEachDelimiter({"_"}, QuoteStyle.Csv, false), {"Месяц.1", "Месяц.2"}),
    #"Removed Other Columns" = Table.SelectColumns(#"Split Column by Delimiter",{"Column1", "Месяц.1", "план/факт", "Значение"}),
    #"Renamed Columns" = Table.RenameColumns(#"Removed Other Columns",{{"Column1", "Наименование"}, {"Месяц.1", "Месяц"}}),
    #"Filtered Rows" = Table.SelectRows(#"Renamed Columns", each ([Месяц] <> "Итого"))
in
    #"Filtered Rows"