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

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

Sub День_получения_заказа()
    Dim i&, j&, Den%, A
    A = [A1].CurrentRegion.Value
    For i = 3 To UBound(A)
        For j = 8 To 14
            If Trim(A(i, j)) = "З" Then
               Den = j - 7
               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 j
    Next i
End Sub