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

Судя по коду
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.

Добавьте параметр range к ссылке. Там есть номер строки:
...edit?gid=0#gid=0&range=A7

Для каждого ввести статусы - выключено, запущено; т.е. нужна простая машина состояний.
Кнопки меняют статусы и пишут данные. Вместо кнопок можно onEdit+галка.
Триггер по времени (раз в минуту) обновляет данные.

Если нужно готовое решение - можно посмотреть в сторону фриланса

Храните слова и цвета вместе, и используйте вместе.

let dictionary = {
  stop_words: [
   { word: "Not_Malicious", color_code: "#ea4300" },
   { word: "NOT_Virus", color_code: "#ea0035" },
   { word: "NOT_Fake_Message", color_code: "#004335" },
   { word: "NOT_Misleading", color_code: "#ea4005" },
   { word: "NOT_Sound", color_code: "#e00335" },
   { word: "NOT_JSalert", color_code: "#0a0305" },
  ],
};

// Тут, для производительности, можно предварительно сделать все TextStyle вместо color_code

function _1() {
  let sheet = SpreadsheetApp.getActiveSpreadsheet().getActiveSheet();
  // range диапазон поиска
  let range = sheet.getRange("E:E").getValues();

  range.forEach((item, row) => {
    for (let column = 0; column < item.length; column++) {
      if (typeof item[column] === "string" && item[column] != "") {
        let richText = SpreadsheetApp.newRichTextValue().setText(item[column]);
        // item[column] текст ячейки
        dictionary.stop_words.forEach(({word, color_code}) => {
          let arr = searchIndex(
            word.toLocaleLowerCase(),
            item[column].toLocaleLowerCase()
          );
          let color = SpreadsheetApp.newTextStyle()
          .setForegroundColor(color_code)
          .build();
          arr.forEach((ind) => {
            richText.setTextStyle(ind.startIndex, ind.endIndex, color);
          });
          sheet
            .getRange(row + 1, column + 1)
            .setRichTextValue(richText.build());
        });
      }
    }
  });
}
// ... остальной код

1) Преобразовать числа в даты и использовать уже готовое
2) Сделать самому, с преферансом и поэтессами

Всё возможно, только сейчас это не вопрос, а задание.

Для закраски подойдёт условное форматирование: номер недели + продолжительность <= номер столбца
Для переноса номеров ИНДЕКС / ВПР / ГРП / ПОИСКОЗ