Macro to obtain subtotal of unique combinason

Hi,

Again I would need some help to try and facilitate a very lengthy task.

Attached is a my data. From column A to D.

I need to get the subtotal for the column C (Total) and D (Qty) for all unique combination of columns A and B. Moreover, I would need it in the format given from column G.

Note that:
1. This is only a very small sample. I can have up to around 20 different Ref in column A.
2. The type under each Ref (after running the macro) should be in ascending order.
3. Only existing type under each Ref should be included.

Well, I started doing the filter option but its too lengthy. I have also tried the subtotal option but again my data is too long. Please help.