How to sum by group and place in specif order?

Hello all

I have a worksheet (sheet1) where the user will have options to choose from and input the quantity in column C. What the macro should do, is create a worksheet (got that working) and sum the total of the option chosen. I summed all the values in the new worksheet but after searching Google I can’t seem to find a way to group and sum those options. Once that is done, I still need those results to be separated by type (columns L:M)and be put in a specific order by option (column N:O).

This is what I have so far:

Please Login or Register  to view this content.

*Please note columns L:O will be hidden

If you accept an extra column D for type a Pivot Table could be used.
See file attached and comment

See next code

Please Login or Register  to view this content.

It is using Dictionnary inside a Dictionnary
There is 3 steps:
Dictionnary structure preparation using data from columns L to O
Dictionnary data recording, gathering data from columns B to C
Display
By the way there is a slight ajustment to do: note the dot added when using .Range(Ref3)
See next code

Please Login or Register  to view this content.

You're welcome