Помощь в VBA⁠⁠

Да ошибся папку как объект задаем dim TarFolder as Object

А потом, когда путь:

set TarFolder = CreateObject("Scripting.FileSystemObject").getFolder(< Вот_сюда_путь>)

power query, если лень самому в лс с суммой

Если сводная будет не в папке с "калькуляторами", то как то так макрос выглядеть будет:

Dim TarFolder As String, i as Object, SumWB as worksheet

Application.ScreenUpdating = False

Application.DisplayAlerts = False

set sumWB = activeworkbook.activesheet

TarFolder = "" /тут можно или от текущей книги задать или Application.FileDialog(msoFileDialogFolderPicker), чтоб окно высветилось для выбора

for each i in TarFolder.Files

open

sum

close

next

Application.ScreenUpdating = True

Application.DisplayAlerts = True

Можете в шаблон всунуть, можете в личную книгу макросов, можете создать книгу с макросами и там на кнопки повесить. Если Сводная прям внутри папки нужна, то можно её по имени исключать или просто переместить на рабочий стол, потом всё перебрать и вернуть обратно

power query, если лень самому в лс с суммой

А в чем сакральный смысл решать задачу именно с помощью Excel? Если это задача для бизнеса - есть же всевозможные SQL, 1С, всякие там СУБД и профильный софт...

Если это ограниченное количество таблиц, например, в расчете на каждый месяц - почему нельзя в одном файле сделать несколько листов, и в последнем листе прописать нужные формулы для расчета с адресами листов?