DIm MyPath as String
MyPath = ThisWorkbook.Path & "\Отгрузки"
ChDir MyPath
'и далее

ThisWorkbook.Path

Private Sub Workbook_Open()
    If InStr(1, ThisWorkbook.Name, "Иван") > 0 Then
        ActiveSheet.Range("A1") = "Иван тут"
    End If
End Sub

=SumByColor(AK3:AK132;$A$5)+SumByColor(AK3:AK132;$AK$14)

'методом End "спускаемся" на последнюю заполненную ячейку в столбце, и потом еще на одну строку через метод Offset
Range("A1").End(xlDown).Offset(1,0)

=$D5-$E5>0

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)