let
    Источник = Excel.CurrentWorkbook(){[Name="Таблица4"]}[Content],
    filter = Excel.CurrentWorkbook(){[Name="Параметры"]}[Content],
    Add = Table.AddColumn(filter, "a", each Number.From(Date.From("01-"&[Month]&"-"&Text.From([Year]))))[a],
    Add2 = List.Distinct(List.Transform({Add{0}..Add{1}}, each Date.MonthName(Date.From(_))&" "&Text.From(Date.Year(Date.From(_))))),
    Доп=Table.SelectColumns(Источник,List.Intersect({{"Наименование"}&Add2,Table.ColumnNames(Источник)}))
in 
    Доп

Все работает и при добавлении строк и при добавлении столбцов!

Очень прошу, объясните, пожалуйста, что принципиально важно было поменять в запросе, чтобы  УФ заработало во все стороны?

Я обязательно разберу все по функциям... но, боюсь потом уже поздно будет вопросы задавать )))))))

В папку  на сетевом диске каждое утро и каждый вечер падает выписка  «xls»

Подготовил файл в Power Query, который запускаясь дважды в сутки выдает последнюю выписку в удобном виде. Все ок, но если файл выписки на сетевом диске еще никто ни разу не открывал – PQ выдавал ошибку  «Таблица не имеет предполагаемый формат» - надо было просто пойти в сетевую папку, открыть файл, закрыть его и обновить запрос…

Попытки победить PQ  бросил - решил воткнуть макрос…. Чтобы при открытии книги он обновил таблицу «Список»  взял из нее ссылку на последний файл в сетевой папке, открыл файл по этой ссылке, тут же его закрыл и «Обновил все» в активной книге.

Сделал вот так:

Private Sub Workbook_Open()
Sheets("Список").ListObjects("Список").QueryTable.Refresh BackgroundQuery:=False 'Обновляем запрос "Список" - получаем ссылку на последний файл
FilePath = Sheets("Список").Cells(2, 4) 'Забираем путь к файлу из ячейки D2 на листе "Список"
Set Vp = Workbooks.Open(FilePath)  'Присваиваем файлу имя Vp. Открытие файла
Vp.Close SaveChanges:=False 'Закрываем файл без сохранения
ActiveWorkbook.RefreshAll 'Обновляем запросы
7. End Sub

Все работает и по F8 и при запуске книги… а вот при запуске по расписанию из планировщика задач windows лезет ошибка

Run-time error '1004'

Сбой инициализации источника данных

В строке

Sheets("Список").ListObjects("Список").QueryTable.Refresh BackgroundQuery:=False

И, если ее закомментировать, в строке

ActiveWorkbook.RefreshAll