Григорий Боев

Храните данные и правьте в 1/2. Смотрите фильтр в 3. Так можно обойтись только формулой FILTER.
Если править и в 1/2 и в 3 - то делаете скрипт с функцией onEdit(event) которая будет таскать записи с 3 на 1/2.

1) Вынесете лист с которым работаете в отдельную переменную вне цикла, нет необходимости получать её каждый раз.
2) Зачем нужен массив abc? item никак не используется.
3) Сделайте задержку или SpreadsheetApp.Flush(). Скорее всего не успевает скрипт.
4) Объединённые ячейки - зло и грабли.

=ЕСЛИ(ЕОШИБКА(НАЙТИ("сто";A1));"";"сто")&
  ЕСЛИ(ЕОШИБКА(НАЙТИ("один";A1));"";"один")&
  ЕСЛИ(ЕОШИБКА(НАЙТИ("кря";A1));"";"кря")&
  ЕСЛИ(ЕОШИБКА(НАЙТИ("му";A1));"";"му")

и т.п.

соответствующей = ВПР()
выгружаться = IMPORTRANGE()
Заведите справочник, ищите по нему id таблицы. Это первый аргумент в IMPORTRANGE(). Второй - это имя_листа + диапазон

=IMPORTRANGE(ВПР(город;{ВсеГорода\ВсеID};2;0);"Данные!A1")

город = ссылка на ячейку выбора города
ВсеГорода - столбец с данными по названиям городов
ВсеID- столбец с данными по id таблиц
Данные!A1 - что нужно импортировать

Чтобы дата не менялась, нужно копировать данные скриптом и фиксировать дату копирования.
1) Получить все данные из источника
2) Убрать все строки (по какому-то ключевому столбцу) которые уже есть в приёмнике
3) Добавить дату копирования в каждую из оставшихся после фильтра строк
4) Добавить эти данные в приёмнике

Судя по коду
lastTime = 0;
должно быть внутри

if (millis() - lastTime > loopTime){
// ...
};

Иначе оно раз в цикл принимает значение millis(), потом сразу проскакивает цикл и обнуляется.

Что-то вроде:

Sub ProcessFilesInDirectory()
    Dim folderPath As String
    Dim fileName As String
    Dim wb As Workbook
    
    ' Путь к директории
    folderPath = "C:\temp\"
    
    ' Получаем первый файл с расширением .xlsx в директории
    fileName = Dir(folderPath & "*.xlsx")
    
    ' Перебираем все файлы в директории
    Do While fileName <> ""
        ' Открываем файл
        Set wb = Workbooks.Open(folderPath & fileName)
        
        ' Вызываем функцию macros3
        Call macros3()
        
        ' Сохраняем и закрываем файл
        wb.Close SaveChanges:=True
        
        ' Получаем следующий файл
        fileName = Dir
    Loop
End Sub

Если в Google Sheet:

=arrayformula(let(
  author;   "@ProgrammerForever";
  keys;       $A$2:$A;
  values;     $B$2:$B;
  
  uni_keys;      sort(unique(FILTER(keys;keys<>"")));
  joined_values; byrow(uni_keys; lambda(key; ЕСЛИОШИБКА(JOIN("; "; filter(values;keys=key)))));
  
  hstack(uni_keys;joined_values)
))

4 часа в Excel/GSheets это:
=ваша_дата + 4/24
Если время работы в пределах 1 рабочего дня, то проверяйте какой час выходит при суммировании. Если больше порога - то ставите верхний порог, а следующая дата - начиная с нижнего порога плюс остаток.
Что-то вроде:

=ЕСЛИ(ОСТАТ((A1+B1/24);1)>=18/24; ЦЕЛОЕ(A1) + 18/24; A1+B1/24)

А если по сути - тут можно порыть в сторону систем счисления и простых линейных уравнений.
Или сделать ещё проще - с помощью юзерфункции.

let ss = SpreadsheetApp.getActiveSpreadsheet();
let sheet = ss.getSheetByName("Маршрут");
let data = sheet.getDataRange().getValues();

1) Попробуйте открывать не в браузере, а в постмане; там более чистый запрос - нет кук, можно контролировать заголовки, юзер-агент, реферер и т.п.
2) Если приходит ответ вида:
{"response":{"count":0,"items":[]}}
то, скорее всего, и с токеном и со всем остальным всё ок - что-то не то с данными запроса или с самим ресурсом, который запрашивается. Это 200 ответ, а не ошибка.
3) Как вариант для проверки - сервис может не отдавать данные по некоторым ip адресам. Предсказать какой будет ip у скрипта невозможно.
4) Попробуйте сохранить и переиспользовать куки, внедрить в headers нужные заголовки, которые браузер передаёт и т.п.
5) Перезалейте второе видео, возможно всё-таки есть что-то, что запрещает получать данные по API.