#"Переупорядоченные столбцы" = Table.ReorderColumns(#"Строки с примененным фильтром",{"Год Неделя", "Column1", "Column2", "Column3", "Column4", "Column5",

let
Источник = Folder.Files("C:\Users\fdnd\Desktop\Данные\Данные"),
#"Отфильтрованные скрытые файлы1" = Table.SelectRows(Источник, each [Attributes]?[Hidden]? <> true),
#"Вызвать настраиваемую функцию1" = Table.AddColumn(#"Отфильтрованные скрытые файлы1", "Преобразовать файл из Тест", each #"Преобразовать файл из Тест"([Content])),
#"Переименованные столбцы1" = Table.RenameColumns(#"Вызвать настраиваемую функцию1", {"Name", "Source.Name"}),
#"Другие удаленные столбцы1" = Table.SelectColumns(#"Переименованные столбцы1", {"Source.Name", "Преобразовать файл из Тест"}),
#"Столбец расширенной таблицы1" = Table.ExpandTableColumn(#"Другие удаленные столбцы1", "Преобразовать файл из Тест", Table.ColumnNames(#"Преобразовать файл из Тест"(#"Пример файла"))),
#"Удаленные столбцы" = Table.RemoveColumns(#"Столбец расширенной таблицы1",{"Source.Name"}),
#"Транспонированная таблица" = Table.Transpose(#"Удаленные столбцы"),
#"Добавлен индекс" = Table.AddIndexColumn(#"Транспонированная таблица", "Индекс", 1, 1),
#"Вставлено: объединенный столбец" = Table.AddColumn(#"Добавлен индекс", "Год Неделя", each if [Индекс] <6 then Text.Combine({"2029", Text.From([Индекс], "ru-RU")}, "-") else Text.Combine({Text.From([Column3], "ru-RU"), Text.From([Column1], "ru-RU")}, "-"), type text),
#"Строки с примененным фильтром" = Table.SelectRows(#"Вставлено: объединенный столбец", each Text.Contains([Год Неделя], "202")),
#"Переупорядоченные столбцы" = Table.ReorderColumns(#"Строки с примененным фильтром",{"Год Неделя", "Column1", "Column2", "Column3", "Column4", "Column5", "Column6", "Column7", "Column8", "Column9", "Column10", "Column11", "Column12", "Column13", "Column14", "Column15", "Column16", "Column17", "Column18", "Column19", "Column20", "Column21", "Column22", "Column23", "Column24", "Column25", "Column26", "Column27", "Column28", "Column29", "Column30", "Column31", "Column32", "Column33", "Column34", "Column35", "Column36", "Column37", "Column38", "Column39", "Column40", "Column41", "Column42", "Column43", "Column44", "Column45", "Column46", "Column47", "Column48", "Column49", "Column50", "Column51", "Column52", "Column53", "Column54", "Column55", "Column56", "Column57", "Column58", "Column59", "Column60", "Column61", "Column62", "Column63", "Column64", "Column65", "Column66", "Column67", "Column68", "Column69", "Column70", "Column71", "Column72", "Column73", "Column74", "Column75", "Column76", "Column77", "Column78", "Column79", "Column80", "Column81", "Column82", "Column83", "Column84", "Column85", "Column86", "Column87", "Column88", "Column89", "Column90", "Column91", "Column92", "Column93", "Column94", "Column95", "Column96", "Column97", "Column98", "Column99", "Column100", "Column101", "Column102", "Column103", "Column104", "Column105", "Column106", "Column107", "Column108", "Column109", "Column110", "Column111", "Column112", "Column113", "Column114", "Column115", "Column116", "Индекс"}),
#"Удаленные столбцы1" = Table.RemoveColumns(#"Переупорядоченные столбцы",{"Индекс"}),
#"Транспонированная таблица1" = Table.Transpose(#"Удаленные столбцы1"),
#"Повышенные заголовки" = Table.PromoteHeaders(#"Транспонированная таблица1", [PromoteAllScalars=true]),
#"Переименованные столбцы" = Table.RenameColumns(#"Повышенные заголовки",{{"2029-1", "Group"}, {"2029-2", "Category"}, {"2029-3", "Brand"}, {"2029-4", "Articul"}, {"2029-5", "SKU"}}),
#"Удаленные верхние строки" = Table.Skip(#"Переименованные столбцы",6),
#"Строки с примененным фильтром1" = Table.SelectRows(#"Удаленные верхние строки", each ([Articul] <> null) and ([SKU] <> null) and ([Group] <> null)),
#"Другие столбцы с отмененным свертыванием" = Table.UnpivotOtherColumns(#"Строки с примененным фильтром1", {"Group", "Category", "Brand", "Articul", "SKU"}, "Атрибут", "Значение"),
#"Разделить столбец по разделителю" = Table.SplitColumn(#"Другие столбцы с отмененным свертыванием", "Атрибут", Splitter.SplitTextByDelimiter("-", QuoteStyle.Csv), {"Атрибут.1", "Атрибут.2"}),
#"Переименованные столбцы2" = Table.RenameColumns(#"Разделить столбец по разделителю",{{"Атрибут.1", "Год"}, {"Атрибут.2", "Неделя"}, {"Значение", "шт"}}),
#"Вставлено: объединенный столбец1" = Table.AddColumn(#"Переименованные столбцы2", "Год-неделя", each Text.Combine({[Год], [Неделя]}, "-"), type text),
#"Измененный тип" = Table.TransformColumnTypes(#"Вставлено: объединенный столбец1",{{"Group", type text}, {"Category", type text}, {"Brand", type text}, {"Articul", type text}, {"SKU", type text}, {"Год", Int64.Type}, {"Неделя", Int64.Type}, {"шт", Int64.Type}, {"Год-неделя", type text}}),
#"Строки с примененным фильтром2" = Table.SelectRows(#"Измененный тип", each ([Group] <> "Group"))
in
#"Строки с примененным фильтром2"

Прогноз X+4 = CALCULATE(
        SUM('Прогноз'[Прогноз продаж]);
        FILTER('Прогноз';DATEADD('Прогноз'[Версия прогноза];28;DAY)='Прогноз'[Дата])
       )

Frct error = ABS(DIVIDE(
        SUM('факт'[Факт продаж])-'Прогноз'[Прогноз X+4];
        'Прогноз'[Прогноз X+4];
        BLANK()
        ))

Сумма 4-х недель Frct err = 
CALCULATE(
            'Прогноз'[Frct error];
            DATESINPERIOD('Календарь'[Неделя];MAX('Календарь'[Неделя]);-28;DAY)
        )

Итоги по нарастанию = CALCULATE(
        SUM('Лист1'[продажи]);
        FILTER('Лист1';'Лист1'[Дата] <= EARLIER('Лист1'[Дата]));
        FILTER('Лист1';'Лист1'[Год-Месяц] = EARLIER('Лист1'[Год-Месяц]));
        FILTER('Лист1';'Лист1'[Бренд] = EARLIER('Лист1'[Бренд]));
        FILTER('Лист1';'Лист1'[Филиал]=EARLIER('Лист1'[Филиал]))
)

Sub Макрос1
Действие1
Действие2
[U]вызов действии надстройки[/U]
Действие3
End sub

Sub Generator()

Dim file As String
Set ob1 = ActiveWorkbook.ActiveSheet ' теперь переменная ob1 будет содержать ссылку на текущий лист активной книги
f_r = Selection.Row ' определяем номер выбранной строки
f_c = Selection.CurrentRegion.Columns(Selection.CurrentRegion.Columns.Count).Column ' определяем номер последнего столбца в данной таблице
file = Application.GetOpenFilename("Excel Files (*.docx;*.doc), *docx;*.doc") ' открывается диалоговое окно "Открытие документа"

' запускаем Word, открываем выбранный документ
Set ObjWord = CreateObject("Word.Application")
    With ObjWord
        .Visible = True
        .Documents.Open Filename:=file
        Set objDoc = .ActiveDocument
    End With
    With objDoc.Range
    For j = 1 To f_c ' цикл по всем столбцам таблицы
        isk_zn = ob1.Cells(1, j) 'искомое значение - находится в первой строке нашей таблицы
        zamen_zn = ob1.Cells(f_r, j) 'значение для замены
        .Find.ClearFormatting
        .Find.Replacement.ClearFormatting
        'осуществляем замену
        With .Find
            .Text = isk_zn
            .Replacement.Text = zamen_zn
            .Forward = True
            .Wrap = wdFindContinue
            .Format = False
            .MatchCase = False
            .MatchWholeWord = True
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
        End With
        .Find.Execute Replace:=2
    Next j
    
    End With
    
End Sub