Pagos de mensualidades automáticos al colocar el monto

De nuevo necesito su valiosa ayuda.

Tengo un control de pagos de mensualidades, el cual quiero automatizar. La idea es que al colocar un monto disminuya progresivamente hasta cubrir la última deuda deuda y si el saldo es favorable colocarlo en la comlumna (E) y si es deudor en (D).

Hice este código:

Sub abonos()
abon = ActiveSheet.Range("E:E").End(xlDown).Value
mes = ActiveSheet.Range("D:D").End(xlDown).Value
res = 0
If abon > mes Then
res = abon - mes
ActiveSheet.Range("E:E").End(xlDown).Offset(1, 0).Value = res
ActiveSheet.Range("E:E").End(xlDown).Offset(-1, 0).Value = ActiveSheet.Range("D:D").End(xlDown).Value
ActiveSheet.Range("E2").Value = "S"
Else
res = mes - abon
ActiveSheet.Range("D:D").End(xlDown).Offset(1, 0).Value = res
ActiveSheet.Range("A:A").End(xlDown).Offset(1, 0).Value = ActiveSheet.Range("A:A").End(xlDown).Value
ActiveSheet.Range("E2").Value = "S"
If abon = mes Then
ActiveSheet.Range("E2").Value = "."
End If
End If
End Sub
pero me funciona, sólo cuando existe una sola deuda como el de la siguiente imagen:

Pero cuando son varias deudas, no cubre mis requerimientos.

Gracias a todos los que me puedan ayudar a construir un código que funciones.