VB code to isert sumup formula

[adsm]

Hi,

I'm trying to figure out a worksheet activation code that would insert the sum up formula below the last data row of column "T" and sum up all the values above the formula.

Any help on this would be kindly appreciated.

[DonkeyOte]

Not entirely clear but perhaps:

Please Login or Register  to view this content.

above is obviously even driven code and should reside in VBE behind whichever sheet object you wish to apply it to

[adsm]

Thanks for the code, That's what I was searching for. I've added sum few lines to the code.

Here is the current version.

Please Login or Register  to view this content.

How could I incorporate the following formula into column E below the last data row.
=SpellCurr($T$10,"Dollar","S","Cent","S")

For example if the formula
.FormulaR1C1 = "=SUM(R1C:R[-1]C)" is in T10, then

the formula =SpellCurr($T$10,"Dollar","S","Cent","S") will show $T$10.

If the formula
.FormulaR1C1 = "=SUM(R1C:R[-1]C)" is in T11 the formula will show as

=SpellCurr($T$11,"Dollar","S","Cent","S") in column E below the last data row.

[DonkeyOte]

Perhaps....

Please Login or Register  to view this content.

[adsm]

Thanks for the help once again. If I may ask one more help how could I make the row where the formulas appear to bold and the row to be highlighted in Grey.

[DonkeyOte]

Please Login or Register  to view this content.

revise colour index per preference

[adsm]

The code colors the entire row. How could I make it to only color from column D to T.

Please Login or Register  to view this content.

I've tried with the above code but it doesn't work for me?

Any help would be kindly appreciated.

[DonkeyOte]

Re: above code - out of context it's hard to follow - use of Static variables etc...

In terms of revising my prior sample:

Please Login or Register  to view this content.

[adsm]

Thanks for the help & I do really appreciate your help.