Delete negatives until total is positive

[rafatomillero]

How do I add the Total of A and delete all the negative values in A until the Total is positive? In the example below it would delete the first two -16:

A	Total
25	-18
6
-16
-16
2
-26
7

It would then look like this

A	Total
25	14
6
2
-26
7

[Jay-RDC]

Is there a reason why you deleted -16 on your example? Should the total be based in the order of adding per row number?

[PhilipMannering]

An iterative macro solution would work,

[rafatomillero]

It can delete any number as long as the total is positive, but I thought of it as a loop.