Расчет дня поставки - VBA

Формулировка задачи:

Помогите пожалуйста решить проблему! Необходимо, чтобы макрос искал в диапазоне выделенным зеленым цветом, день выхода заказа (обозначен буквой "З"). Затем прибавлял к этому дню недели Контрактный срок поставки и вычислял в какой день должен прийти заказ. День поставки должен отмечаться зеленым цветом в оранжевой зоне. Если кто-то сможет помочь буду очень благодарен!

Решение задачи: «Расчет дня поставки»

textual
                            Листинг программы 
                        

                            Sub День_получения_заказа()
    Dim i&, j&, Den%, A
    A = [A1].CurrentRegion.Value
    For i = 3 To UBound(A)
        Den = 0
        For j = 8 To 14
            If Trim(A(i, j)) = "З" Then Den = j - 7: Exit For
        Next j
        If Den > 0 Then
           Den = Den + A(i, 5)
           Den = ((Den - 1) Mod 7) + 1
           With Cells(i, Den + 14)
                .Value = "П"
                .Interior.color = 14610923
           End With
        End If
    Next i
End Sub
                        