let
    Источник = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    #"Добавлен индекс" = Table.AddIndexColumn(Источник, "Индекс", 0, 1, Int64.Type),
    #"Другие столбцы с отмененным свертыванием" = Table.UnpivotOtherColumns(#"Добавлен индекс", {"Индекс"}, "Атрибут", "Значение"),
    #"Строки с примененным фильтром" = Table.SelectRows(#"Другие столбцы с отмененным свертыванием", each ([Значение] <> 0 and [Значение] <> "Данные 1" and [Значение] <> "Данные 2" and [Значение] <> "Данные 3" and [Значение] <> "Данные 4" and [Значение] <> "Данные 5" and [Значение] <> "Дата" and [Значение] <> "Наименование")),
    #"Добавлен индекс1" = Table.AddIndexColumn(#"Строки с примененным фильтром", "Индекс.1", 0, 1, Int64.Type),
    #"Вставлено: целочисленное деление" = Table.AddColumn(#"Добавлен индекс1", "Целочисленное деление", each Number.IntegerDivide([Индекс.1], 7), Int64.Type),
    #"Вычисленный остаток от деления" = Table.TransformColumns(#"Вставлено: целочисленное деление", {{"Индекс.1", each Number.Mod(_, 7), type number}}),
    #"Другие удаленные столбцы" = Table.SelectColumns(#"Вычисленный остаток от деления",{"Значение", "Индекс.1", "Целочисленное деление"}),
    #"Сведенный столбец" = Table.Pivot(Table.TransformColumnTypes(#"Другие удаленные столбцы", {{"Индекс.1", type text}}, "uk-UA"), List.Distinct(Table.TransformColumnTypes(#"Другие удаленные столбцы", {{"Индекс.1", type text}}, "uk-UA")[Индекс.1]), "Индекс.1", "Значение"),
    #"Измененный тип" = Table.TransformColumnTypes(#"Сведенный столбец",{{"0", type datetime}, {"1", type text}, {"2", type text}, {"3", type text}, {"4", type text}, {"5", type text}, {"6", type text}}),
    #"Другие удаленные столбцы1" = Table.SelectColumns(#"Измененный тип",{"0", "1", "2", "3", "4", "5", "6"}),
    #"Сортированные строки" = Table.Sort(#"Другие удаленные столбцы1",{{"0", Order.Ascending}})
in
    #"Сортированные строки"