Of
Sub dotch()
Set bib = CreateObject("Scripting.Dictionary")
For x = 2 To Range("A" & Rows.Count).End(xlUp).Row
bib(Cells(x, 1).Value) = bib(Cells(x, 1).Value) + Cells(x, 2).Value
Next
Range("D2").Resize(bib.Count).Value = Application.Transpose(bib.Keys)
Range("E2").Resize(bib.Count).Value = Application.Transpose(bib.Items)
End Sub
Zoals Redhead al aangaf,quantity omzetten naar getal.