Sumar columna B cuando columna A sea igual

h1= hoja origen
h2= hoja destino
''''''''''''''''
Sub SUMAIGUALES()
H1 = ''''
H2 = ''
FILA = 2
fila2 = 2
Do While Worksheets(H1).Cells(FILA, 1).Value <> ""
valor1 = Worksheets(H1).Cells(FILA, 1).Value
flag = False '' variable que determina si la variable esta repetida
    For i = 1 To fila2
        If valor1 = Worksheets(H2).Cells(i, 1).Value Then
        flag = True
        End If
    Next i
If flag = False Then
Worksheets(H2).Cells(fila2, 1).Value = valor1
fila2 = fila2 + 1
End If
FILA = FILA + 1
Loop
For j = 2 To fila2
suma = 0
valor = Worksheets(H2).Cells(j, 1).Value
FILA1 = 2
Do While Worksheets(H1).Cells(FILA1, 1).Value <> ""
If Worksheets(H1).Cells(FILA1, 1).Value = valor Then
suma = suma + Worksheets(H1).Cells(FILA1, 2).Value
End If
FILA1 = FILA1 + 1
Loop
Worksheets(H2).Cells(j, 2).Value = suma
Next j
End Sub
Super probado de que te funciona