Buenas tardes amigo, mi problema es el siguiente tengo una lista cargada en un listbox que iene de una hoja llamada ventas por producto donde tengo fechas, codigo y cantidad, mi pregunta es como puedo sumar las cantidades que tengan el mismo codigo despues de eliminar los repetidos y luego reflejarlo en una columna del ismo listbox? anexo el codigo que he recolectado que estoy usando

esto en primer lugar me carga el listbox en un rango de fecha y luego me elimina los codigos repetidos lo que me falta es hacer un resumen de las cantidades vendidas ese dia por produdto

Private Sub CommandButton2_Click()

Application.ScreenUpdating = False

Dim filaF As Long

Dim F

F = 0

cuenta_registros = 0

Dim Valor As Double

Dim Suma As Double

Dim ws As Double

ws = 0

With Me.Lista

    .ColumnCount = 3

    .ColumnWidths = "80pt; 190pt; 30pt"

End With

Lista.Clear

filaF = Hoja10.Range("A" & Rows.Count).End(xlUp).Row

'FILTRAMOS PRODUCTOS POR FECHAS

If Me.TextBox3.Value <> "" Then

   For Fi = 2 To filaF

      If Hoja10.Range("A" & Fi) = DateValue(Me.TextBox3.Value) Then

    Lista.AddItem

    Lista.List(F, 0) = Hoja10.Range("F" & Fi) 'codigo

    Lista.List(F, 1) = Hoja10.Range("G" & Fi) 'descripcion

    Lista.List(F, 2) = Hoja10.Range("H" & Fi) 'cantidad

    F = F + 1

      End If

   Next Fi

End If

'ELIMINAMOS DUPLICADOS

'Declaramos variables

Dim i As Long, j As Long

With Lista

For i = 0 To .ListCount - 1

For j = .ListCount - 1 To (i + 1) Step -1

If .List(j) = .List(i) Then .RemoveItem j

Next j

Next i

End With

End Sub

gracias por su ayuda