Quitar datos duplicados

hola, Alex !

... lista ... columna A de categorias y ... columna B la cantidad de cada categoria. ... categorias ... duplicadas [...]
... necesito una macro que sume las cantidades de las categorias duplicadas y elimine estos duplicados [...]

la siguiente rutina [teniendo seleccionada alguna celda 'dentro' del rango 'Ax:Bz']
1.- ['necesariamente'] ordena en base a las categorias
2.- selecciona la primer celda del rango [¿a?]
3.- 'acumula' en la siguiente columna [¿b?] el valor de la siguiente 'categoria' ['b_siguiente'] =>si 'misma' categoria]
3.- 'elimina' la categoria 'acumulada' y 'repite el bucle' -o- 'baja' a la siiguiente categoria e 'inicia' un nuevo bucle
[modifica lo que sea 'necesario'] :))
______
Sub Acumular_Categorias()
ActiveCell.CurrentRegion.Select
Selection.Cells(1, 1).Activate
Selection.Sort Key1:=ActiveCell
ActiveCell.Select
Do
If ActiveCell = ActiveCell.Offset(1) Then
ActiveCell.Offset(, 1) = ActiveCell.Offset(, 1) + ActiveCell.Offset(1, 1)
ActiveCell.Offset(1).EntireRow.Delete
Else
ActiveCell.Offset(1).Select
End If
Loop Until ActiveCell = ""
End Sub
¨¨¨¨¨¨¨¨¨¨¨¨¨¨
saludos,
hector.

p.d. si NO deseas eliminar la fila COMPLETA... 'cambia' la linea 'correspondiente'...
de =>ActiveCell.Offset(1).EntireRow.Delete< a =>Range(ActiveCell.Offset(1), ActiveCell.Offset(1, 1)).Delete<