For i = wsStart.Index + 1 To iWb.Worksheets.Count
    iWb.Worksheets(i).Delete
Next

let
   // предположим, нас интересует одна таблица Table1 в каждом файле
   обработчик = (ссылка) => Excel.Workbook(File.Contents(ссылка)){[Kind = "Sheet", Name = "Материалы"]}[Data],
   // получаем список обработанных таблиц
   таблицы = List.Transform(Ссылка_свод[Ссылка_свод], обработчик),
   // соединяем таблицы
   итоговая = Table.Combine(таблицы)
in
   итоговая

sh.Range("W" & k).Formula = "=VLOOKUP(R" & k & ",$A$4:$P$31,10,0)"

sh.Range("W" & k).Formula = "=VLOOKUP(R5,$A$4:$P$31,10,0)"

=СЧЁТЕСЛИ($Q3;"*без движения*")>0

With wsTmpSh.ChartObjects.Add(0, 0, .Width, .Height).Chart

With wsTmpSh.ChartObjects.Add(0, 0, .Width * 10, .Height * 10).Chart

ActiveWorkbook.Worksheets("Оборудование").Rows("1:4").Copy ActiveWorkbook.Worksheets("Результаты").Rows("1:1")

Sub GetInteriorColor()
MsgBox ActiveCell.Interior.Color
End Sub