Loop & Sum Subtotal VBA

[Anilk]

Hi,

I have a set of numbers which run like this ...

Amount 1 Amount 2
$5000
$200
$4300
$1800
$600
$2000
$500
$1200
$2000

My Amount count will go to thousands..., How can i write a macro so as it will shown the sum of Amount 2 with corresponding figures in Amount1, and a row inserted after every sub total (matched).......... say..... something like this...

Amount 1 Amount 2
$5000
$200
$4300
$500
Subtotal $5000 $5000

$1800
$600
$1200
Subtotal $ 1800 $1800

$2000
$2000
Subtotal $2000 $2000

Thanks in anticipation for any kind help by you guys please.......

Cheers

AK

 

[Dryver14]

where did the 500 come from in the first subtotal?

 

[Anilk]

oops sorry, the figures shud look like this
Amount 1 Amount 2
$5000
$200
$4300
$1800
$600
$2000
$500
$1200
$2000

and the resultant is somethis like this
Amount 1 Amount 2
$5000 $200
$4300
$500
Subtotal $5000 $5000

$1800 $600
$1200
Subtotal $1800 $1800

$2000 $2000
Subtotal $2000 $2000

 

[Anilk]

actually i am unable to copy my sheet over there...... pls ignore my ignorance

Basically, in this fomrat, there r only 3 amounts in column1

$5000, $1800 & $2000

While the rest ($200, $4300, $500, $1200, $600, $2000)are in Column 2, now i want to make a VBA macro so that all the amounts in col 2 which total to the amount in col 1 can be segregated.

say something like this.
the sum of $200,$4300 & $500 in col 2, corresponds to $5000 of col 1