Visual Basic para Aplicaciones - aGRUPAR REGISTROS Y SUMAR ESTOS GRUPO

Hola amigos una consulta :
tengo :
NOMBRE VENTA
A --> 1
A ---> 1
B ---> 2

k agrupe :
GRUPO
A ---> 1
B ---> 2
y k sume estos grupos, k para el ejemplo seria = 3

Gracias por la ayuda k puedan brindarme

mira...esta macro la hice con esa finalidad. a ver si te sirve


R = 15
C = 3
R1 = 15
C1 = 5

'Activa la Hoja de Factura'
Sheets("Factura").Select

'Los valores de las Celdas de la Columna de Descripsion'
'Se Almacenan en un Vector del Mismo Nombre'


For i = 1 To 15
Descripsion(i) = Cells(R, C).Value
Cantidad(i) = Cells(R1, C1).Value
R = R + 1
C = C
R1 = R1 + 1
C1 = C1
Next

Sheets("RegInventario").Select
R2 = 4
C2 = 2

For i = 1 To 15
Comparar(i) = Cells(R2, C2).Value
R2 = R2 + 1
C2 = C2
Next

R3 = 4
C3 = 5

For i = 1 To 15
Stock(i) = Cells(R3, C3).Value
R3 = R3 + 1
C3 = C3
Next

j = 0
i = 0

For j = 1 To 15
For i = 1 To 15
If Descripsion(i) = Comparar(j) Then
Cont(j) = Cont(j) + Cantidad(i)
Stock(j) = Stock(j) - Cont(j)
End If
Next