Aggregating records with two main IDs in [VBA makro] : that's my first question on stackoverflow. :)

Recently I want to make a **makro** in **VBA** that will make smaller version of excel doc. I was thinking about sorting all records and then making "for each" loops, but it looks pretty hard with my level of knowledge.

So, there is a excel sheet with two main IDs which make records different.
I want to make it as small as possible. On my example there is a ID_1 which is main key, ID_2 from which we will need only 2 first signs (I used LEFT formula for this and it worked fine). From columns "A" to "J" we have "raw data" from "M" to "U" we have data which I want to get.

So, with this example -> We have 6 records **1015** (ID_1) with 3 different ID_2 (**AB**, **AZ**, **AE**). I want to sum them up to a one cell each (**1015 AB** ; **1015 AZ** ;**1015 AE**) with values which each record had (there is 3 records: **1015 AB** with VALUE of 2,3,4 so in result I want to get just one row **1015 AB** **9**(sum of *value*) **4**(sum of *count*) **17** (sum of(*value* * *count*)). It's important to see that this **17** dosn't come from **9 * 4**. It's =sum(I4:I6) (but it may be spread out like in **1200 FF** example below! I am still trying to sort them both at one time, but I cant get past it..)

[enter image description here][1]

I look forward to your answer or idea how to make it faster. I hope that I make it clear or at least that you can see it from the picture :) 
If you have any questions, do not hesitate, I will try to answer :)

Have a nice day, 
Kei


  [1]: https://i.stack.imgur.com/C7nOM.png