=ЕСЛИ(ДНЕЙ360(B5;E5)< 45 ;C5-(C5* 3 %);C5)

Sub Макрос1()
On Error GoTo Err0
Application.ScreenUpdating = False

    Sheets("Лист1").Select
    Dim RowMax As Long
    RowMax = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
    
    Dim sum_oplat As Double
    Dim sum_schet As Double
    
    Dim plat As Date    ' последняя дата платежа
    Dim otgr As Date    ' дата отгрузки
    
    For i =  4  To RowMax
        scet = Cells(i,  1 )                      ' колонка А - счёт №
        If scet = "оплата" Then
            sum_oplat = sum_oplat + Cells(i,  3 ) ' колонка "C" - сумма счёта
        Else
            sum_schet = sum_schet + Cells(i,  3 ) ' колонка "C" - сумма счёта
        End If
    Next
    
    For i =  4  To RowMax
        If sum_oplat >= sum_schet Then
            ' ЗДЕСЬ, неподвластная мне, логика
        End If
    Next
    
MsgBox "готово"
Application.ScreenUpdating = True
Exit Sub
Err0:
    Application.ScreenUpdating = True
    MsgBox Err.Description
End Sub