Te anexo la actualización
Private Sub CommandButton5_Click() 'Realizar Pago
'Por.Dante Amor
If TxtFechapagos = "" Or Not IsDate(TxtFechapagos) Then
MsgBox "Captura una fecha válida"
TxtFechapagos.SetFocus
Exit Sub
End If
'
If Cbocliente = "" Or Cbocliente.ListIndex = -1 Then
MsgBox "Selecciona un cliente"
Cbocliente.SetFocus
Exit Sub
End If
'
una = True
Set h1 = Sheets("deudas")
Set h2 = Sheets("Pagos")
For i = h1.Range("B" & Rows.Count).End(xlUp).Row To 5 Step -1
If h1.Cells(i, "B") = Cbocliente Then
u = h2.Range("B" & Rows.Count).End(xlUp).Row + 1
h2.Cells(u, "B") = TxtFechapagos
h2.Cells(u, "C") = h1.Cells(i, "A")
h2.Cells(u, "D") = h1.Cells(i, "B")
h2.Cells(u, "E") = h1.Cells(i, "C")
h2.Cells(u, "F") = h1.Cells(i, "D")
h2.Cells(u, "G") = h1.Cells(i, "E")
If una Then h2.Cells(u, "H") = CDbl(TxtTotal)
una = False
h1.Rows(i).Delete
End If
Next
ListaPagos.Clear
Cbocliente.Clear
TxtDNIcliente = ""
TxtTotal = ""
For i = 5 To h1.Range("B" & Rows.Count).End(xlUp).Row
Call agregar(Cbocliente, h1.Cells(i, "B"))
Next
MsgBox "Pago realizado"
End Sub