Akina

Функция, встроенная или определённая пользователем, при использовании в формуле ячейки НЕ МОЖЕТ ИЗМЕНЯТЬ ЗНАЧЕНИЯ ЯЧЕЕК. В принципе не может. А любая такая попытка в определённой пользователем функции немедленно приводит к ошибке и аварийному завершению работы функции.

Адреса диапазонов в константу, в коде парсим и используем.

Const Addresses As String = "E7:E14,F7:F14,G7:G14,G21:G108,H7:H14"

Sub ...
...
For Each RangeAddress In Split(Addresses, ",")
    Workbooks("srcX.xlsx").Sheets("SheetY").Range(RangeAddress).Copy Workbooks("dst.xlsx").Sheets("SheetZ").Range(RangeAddress)    
Next

Адреса диапазонов назначения тоже могут быть собраны в константу. А для обработки нескольких файлов дополнительно считать смещение и задействовать метод Range.Offset.

а что делать с реляционной бд

А ничего. НЕ хранить ежедневные итоги. Только приходы и уходы. И самая первая запись - только приход (начальный баланс), если начинаем не с пустой кассы. А сумму с накоплением считаем непосредственно в запросе, в тот момент, когда потребовался отчёт.

Ну или как вариант - хранить в отдельной таблице базовую сумму (начальный баланс периода), скажем, на начало месяца или там года, и от неё уже начинать считать.

чтобы ничего не двигать не редактировать

Нет, нельзя. Ширина колонки и высота строки - это именно атрибут колонки/строки. А не прямоугольного диапазона ячеек, в который выполнится вставка. Так что двигать - придётся.

Всё остальное (шрифты, цвета, заливка, выравнивание и пр.) должно копироваться нормально. При условии, что задано явно, а не используется дефолтная настройка. И при условии, что диапазон назначения заранее настроен на тип данных текстовый. Иначе преобразований некоторых значений в даты, выравнивание чисел по правому краю и прочих прелестей не избежать...

PS. Можно эту таблицу вставлять не как значения ячеек, а как объект Документ MS Word. Вот тогда точно ничего не уплывёт.

• Выделить диапазон с числами.
  
• Alt-F11
  
• Ctrl-G
  
• ввести

  for each onecell in selection:onecell.value="https://d21skl.com/"&onecell.value:next

  
  
• Enter
  
• Alt-F4
  
• Alt-F4
  
  

Скопируйте данные из 2-4 файлов на листы 2-4 книги 1 (или сразу листы целиком). Можно и не копировать, но так проще, не надо держать открытыми 4 книги, да и финальная конструкция получается переносимой.
Используя ВПР(), в дополнительные колонки на листе 1 скопируйте данные с листов 2-4.
Окончательно в дополнительных колонках на листе 1 с помощью ЕСЛИ + ЕПУСТО/ЕНД соберите из 4 значений одно финальное для каждого атрибута.
Замените формулы на значения.
Удалите промежуточные колонки.
Всё.

Пример для 4 книг, без копирования. Приоритет - 1,2,3,4.

\S*\d\S*
https://regex101.com/r/bzUbiN/1

нужно из неё вытащить, то что выделено жирным

Показанный результат не соответствует условию. С какого перепугу в последнем токене отрезан начальный символ "№"? а в третьем и четвёртом - финальное "г."?

Выполняем SELECT .. INTO OUTFILE, полученный CSV прекрасно читается в Excel. Т.е. PHP выполняет указанный запрос, а потом, если надо, организует перемещение полученного CSV в нужное место.

Вот нафига было удалять предыдущую версию вопроса?

Ладно, повторю. У FileSystemObject нет метода Copy, он есть у объектов Folder и File. Следовательно,

Set File = fso.GetFile(ThisWorkbook.Path & "\doc.docm")
Set File = fso File.Copy("%Temp%\d6c.docm")

PS. Что такое "открытый файл", где, кем и вообще почему он открытый - так и не понял.

Начните с формализации данных. Хотя бы введите единообразие наименований (наименование должно выбираться из списка, а не вводиться в свободной форме, либо должна заполняться форма со всеми возможными наименованиями) и формата представления данных. Это задача 1.
Задача 2 - решить, в каком виде будет заполняться ежедневная форма. Веб-форма тут в общем вполне подойдёт. На гугле свет клином не сошёлся - есть те же яндекс-документы, например...
Задача 3 - передача готовой формы. Тут я бы рекомендовал выгрузку в локальный CSV и отправку по электронной почте. Это контролируемый и протоколируемый канал, бесполезно говорить, что письмо было отправлено вовремя, если его нет в отправленных или если дата отправки - безнадёжно просроченная.
Задача 4 - загрузка полученных данных в единое хранилище. Тут уже можно думать о приличной СУБД. Ну а её штатных клиентских средств для загрузки - за глаза.
Задача 5 - аналитика. Имея данные в БД, получать аналитику в любых формах и разрезах - не проблема.
Ну и задача 6 - формирование красивых выходных документов с результатами анализа. Тоже не сказать что проблема.

Никакую.
Формула не может изменить другую ячейку. Формула не может именно изменить себя - только посчитать новое значение.
Это делается либо формулой в отдельном столбце с последующей заменой исходного столбца на рассчитанные значения, либо процедурой на VBA.

Расписываю по шагам.

1. В ячейку B1 вставить формулу =A2. В ячейку С1 вставить формулу =A3. И так далее до E1=A5.
2. Выделить ячейки B1-E1.
3. Выполнить двойной щелчок по маленькому кубику в нижнем правом углу выделения. Записи размножатся вниз.
4. Не сбрасывая выделения, нажать "Копировать".
5. Не сбрасывая выделения, нажать "Специальная вставка - значения".
6. Выделить столбец A. Выполнить Сортировка от А до Я. Согласиться на авторасширение диапазона.
7. Выделить и удалить все строки, которые НЕ начинаются с даты.

Всё.

Если надо делать регулярно - записать макрос. Строки для удаления тогда найти поиском (например, по слову "Продажа").

Есть минимум два варианта.
Первый - предпочтительный, но ссылку на него уже дал datka.
Второй - откорректировать шаблон по умолчанию. См. тут