Sub FillRequest()
    Dim lngI As Long, lngJ As Long, lngK As Long
    Dim arrIn, arrOut
    'пишем в массив диапазон с данными с листа Data
    arrIn = Worksheets("Data").UsedRange.Value
    With Worksheets("Заявка")
    'чистим старые данные заявки
    'Offset - отсупаем от В13 вправовниз, Resize - переопределяем размер диапазона, который чистим
    'строки считаем от размера CurrentRegion, столбцов для очистки = 2
        .Range("B13").Offset(1, 1).Resize(.Range("B13").CurrentRegion.Rows.Count - 1, 2).ClearContents
    'переопределяем размерность выходного массива, в который будем собирать данные
    'сколько строк может получиться по запросу не знаем, потому строк определяем столько же
    'сколько в исходном массиве. А столбцов нам нужно 2.
    ReDim arrOut(1 To UBound(arrIn, 1), 1 To 2)
    'запускаем 2 цикла - по строкам и по столбцам исходного массива
    For lngI = 2 To UBound(arrIn, 1)
        For lngJ = 5 To UBound(arrIn, 2)
            'если соблюдаются все равенства
            If arrIn(lngI, 1) = .Range("C8") And arrIn(lngI, 2) = .Range("C9") _
            And arrIn(lngI, 3) = .Range("C10") And arrIn(1, lngJ) = .Range("C11") Then
                'увеличиваем счетчик записей в выходном массиве
                lngK = lngK + 1
                'пишем значение в соответсвующую строку выходного массива
                arrOut(lngK, 1) = arrIn(lngI, 4): arrOut(lngK, 2) = arrIn(lngI, lngJ)
            End If
        Next lngJ
    Next lngI
    'пишем значения из массива в таблицу заявки
    'чтобы все значения влезли, переопределяем область, куда пишем через Resize
    'используя значение заполненных строк выходного массива и количество его столбцов
    .Range("C14").Resize(lngK, 2) = arrOut
    End With
End Sub

=ИНДЕКС(ДВССЫЛ(P2);1)

=A2+(7+ПОИСКПОЗ(D2;{"понедельник";"вторник";"среда";"четверг";"пятница";"суббота";"воскресенье"};0))-ДЕНЬНЕД(A2;2)

ActiveCell.Row

=ПОДСТАВИТЬ(СЖПРОБЕЛЫ(СЦЕПИТЬ(B2;" ";C2;" ";D2;" ";E2;" ";F2;" ";G2));" ";"; ")

=ЕСЛИ(ИЛИ(ЕСЛИОШИБКА(ПОИСК("Городской";A9);ЛОЖЬ);ЕСЛИОШИБКА(ПОИСК("муниципальный";A9);ЛОЖЬ));A9;B8)

Set d = Workbooks("Ежедневная_сводка").Worksheets("Сводная_таблица_ГК").Range(Cells(1, 1), Cells(k, 3))
'мне кажется перед каждой Cell надо прописывать полный путь.
Set d = Workbooks("Ежедневная_сводка").Worksheets("Сводная_таблица_ГК").Range _
(Workbooks("Ежедневная_сводка").Worksheets("Сводная_таблица_ГК").Cells(1, 1), Workbooks("Ежедневная_сводка").Worksheets("Сводная_таблица_ГК").Cells(k, 3))

=ВПР(A2;Лист2!$A$1:$B$6;2)

Sub CopyDataPasteToEnd()
    With Worksheets("Лист1")
        .Range("A1").ListObject.DataBodyRange.Copy 'копируем диапазон данных умной таблицы с листа1
        With Worksheets("История") 'вставляем только значения в первую пустую ячейку столбца А листа История
        'пустую ячейку получаем через метод End от ячейки А1 вниз (xlDown) и последующим сдвигом еще на строку (Offset)
            .Range("A1").End(xlDown).Offset(1, 0).PasteSpecial (xlPasteValues)
        End With
    End With
End Sub

  MsgBox "Completed executing macro on all workbooks"

    wb.Close SaveChanges:=False 'Close opened worbook w/o saving, change as needed