VBA to create report layout from hierarchy

[CROY1985]

Hi all

I have a reporting hierarchy which is laid out like below:

North East	Sunderland	A
North East	Sunderland	B
North East	Newcastle	C
North East	Newcastle	D
North West	Preston	E
North West	Preston	F

<tbody>
</tbody>

I need a macro to convert it to the below:
A
B
Sunderland Total
C
D
Newcastle Total
North East Total
E
F
Preston Total
North West Total

It's easy in a pivot table but would prefer a vba solution.

Can someone just point me in the right direction for this?

Thanks