How to Apply Payments to Aged Receivables Automatically using Excel VBA

[p45cal]

I have not considered the case of if the credit is more than the total summed debts from all columns. I think perhaps your code might be allowing for that possibility

I did consider it and coded something for it but didn't include it in my attachment.
It was one line of code which adds a comment in column L:

  Next clm
  If PaymentToApply > 0 Then Cells(rw.Row, "L").Value = "Unallocated amount: " & PaymentToApply '<<<<<<added line
Next rw