Como puedo sumar valores de una columna en relación a los valores de otra con excel VBA

Coloca los datos desde columna a hasta c

Plot en a unit en b orden en c

En la fila 1 van los rotulos desde la 2 hacia abajo los datos

Importante, no deben haber filas vacias entre en el bloque de datos

La columna d y e deben estar vacias, pues alli depositaremos los totales

Aca el macro:

Sub splot()
Dim r As Range
Dim t As Long
Dim n As String
'4c7569735f50
t = Application.WorksheetFunction.CountA(Range("C2:c65536")) + 1

If t <= 1 Then Exit Sub

For Each r In Range("c2:" & "C" & t)
If Len(Trim(r.Offset(0, -2))) > 0 Then n = Trim(r.Offset(0, -2))
If Len(Trim(r.Offset(0, -2))) = 0 Then r.Offset(0, -2) = n
Next
Set r = Nothing
' resumen sumas
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Range("d2").Select
ActiveWindow.SmallScroll Down:=-21
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveSheet.Range("$D$2:$D$65536").RemoveDuplicates Columns:=1, Header:= _
xlNo
Range("E2").Select
ActiveCell.FormulaR1C1 = "=SUMIF(R2C1:R65536C2,RC[-1],R2C2:R65536C2)"
Range("E2").Select
t = Application.WorksheetFunction.CountA(Range("d2:d65536")) + 1
Selection.AutoFill Destination:=Range("E2:" & "E" & t)
Range("A1").Select

End Sub