Sum values in one column based on unique values in another

Hi,

I'll get right into it:

I have the following data which is a small sample from a large pool that constantly changes:

Column A Column B
1 156234
2 178292
2 34023
3 10934
4 156705

I need to get it to look like this:

Column D Column E
1 156234
2 212315
3 10934
4 156705

I need to use VBA arrays to attain the unique values from column A and sum Column B accordingly. I have used PivotTables previously, but given the data constantly changes i thought VBA Arrays would be best suited to make it efficient as excel formulas take sometime to calculate with 30,000+ records.


Thanks for you help.

Regards
Deepak