Consulta para Dam

Saludos Dam

Hace unas semanas atrás usted me envío un archivo que le solicite con el siguiente código:

Private Sub ComboBox1_Change()
TextBox1 = Sheets("inventario").Cells(ComboBox1.ListIndex + 2, "A")
TextBox2 = Sheets("inventario").Cells(ComboBox1.ListIndex + 2, "C")
TextBox3 = Sheets("inventario").Cells(ComboBox1.ListIndex + 2, "D")
TextBox4.SetFocus
End Sub
Private Sub CommandButton1_Click()
'Por.DAM
'Botón para pasar al listbox
ListBox1.ColumnCount = 5
ListBox1.AddItem TextBox1
ListBox1.List(ListBox1.ListCount - 1, 1) = ComboBox1
ListBox1.List(ListBox1.ListCount - 1, 2) = TextBox2
ListBox1.List(ListBox1.ListCount - 1, 3) = TextBox3
ListBox1.List(ListBox1.ListCount - 1, 4) = TextBox4
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
ComboBox1.SetFocus
End Sub
Private Sub CommandButton2_Click()
'Por.DAM
'bontón para actualizar inventario y diario
For i = 0 To ListBox1.ListCount - 1
'resta del inventario
If IsNumeric(ListBox1.List(i, 0)) Then
cod = Val(ListBox1.List(i, 0))
Else
cod = Val(ListBox1.List(i, 0))
End If
Set fila = Sheets("inventario").Range("A:A").Find(cod)
Sheets("inventario").Cells(fila.Row, "C") = _
Sheets("inventario").Cells(fila.Row, "C") - Val(ListBox1.List(i, 4))
'Agrega en diario
uf = Sheets("diario").Range("A" & Rows.Count).End(xlUp).Row + 1
Sheets("diario").Range("A" & uf) = ListBox1.List(i, 0)
Sheets("diario").Range("B" & uf) = ListBox1.List(i, 1)
Sheets("diario").Range("C" & uf) = ListBox1.List(i, 2)
Sheets("diario").Range("D" & uf) = ListBox1.List(i, 3)
Sheets("diario").Range("E" & uf) = ListBox1.List(i, 4)
MsgBox "Inventario y diario actualizado", vbInformation
ListBox1.Clear
ComboBox1.SetFocus
Next
End Sub
Private Sub UserForm_Activate()
ComboBox1.RowSource = "Inventario!B2:B6"
ComboBox1.SetFocus
End Sub

Y tengo el siguiente inconveniente:

Al agregar mas de un articulo al listbox o al repetir dos veces un articulo solo me agrega uno al diario e igual en descuento del inventario y me marca la linea

'resta del inventario
If IsNumeric(ListBox1.List(i, 0)) Then

Donde esta el error y como hago para si repito el articulo no se duplique el nombre en el listbox sino solo se sume la cantidad

Envíe el archivo a su correo