=ЕСЛИ(ИЛИ(E3>0;СЧЁТЕСЛИМН($E$6:$E$10;"")<5);ЕСЛИ(И(E3="1 раз в неделю";СЧЁТЕСЛИМН($E$6:$E$10;"")=4);"";ЕСЛИ(И(E3="2 раза в неделю";СЧЁТЕСЛИМН($E$6:$E$10;"")=3);"";ЕСЛИ(И(E3="3 раза в неделю";СЧЁТЕСЛИМН($E$6:$E$10;"")=2);"";ЕСЛИ(И(E3="4 раза в неделю";СЧЁТЕСЛИМН($E$6:$E$10;"")=1);"";ЕСЛИ(И(E3="5 раз в неделю";СЧЁТЕСЛИМН($E$6:$E$10;"")=0);"";"Внимание! Не верно выбрано количество дней недели. Количество выбранных дней должно соответствовать периодичности платежей")))));"")

Application.CommandBars("Cell").Reset

...
If Not Intersect(Target, Sheets("Sheet1").Range("C3")) Is Nothing Then
...
End If
...

=СУММЕСЛИМН($D:$D;$A:$A;"t";$B:$B;"b2";$C:$C;"*")

Sub test()
n = 1
Range("A1").Select
For c = 1 To 8
    For r = 1 To Range(Selection, Selection.End(xlDown)).Count
        Cells(n, 4) = Cells(r, c): n = n + 1
    Next r
Next c
Range("A:C,E:H").Select
    Selection.Delete Shift:=xlToLeft
    Range("A1").Select
End Sub

Public Function SumColor(myRange As Range) As Variant
Dim rngCell As Range
Dim summa As Variant

For Each rngCell In myRange.Cells
    If rngCell.Interior.Color = vbRed Then
    summa = summa + rngCell.Offset(0, -1).Value
    End If
Next rngCell
SumColor = summa

End Function