Auto Sum

**janjan_376** · 10-14-2009, 03:14 PM

I would like to add an auto sum in my macro. This is my issue:

when my macro finishes, on column B, I would like to have to total up b2 to whatever is the last cell that contains the value in column B. If the last value ends in B10, I would like B12 to have the total. If the last value ends in B13, I would like B15 to have the total. Please help. Thank you.

**sweep** · 10-15-2009, 08:00 AM

Hi,

Is this what you want?

Please Login or Register  to view this content.

**DonkeyOte** · 10-15-2009, 08:16 AM

Perhaps:

Please Login or Register  to view this content.

**sweep** · 10-15-2009, 08:35 AM

Range(Rows.Count,"B").End(xlUp).Offset(2).Formula = "=SUM(R2C:R[-1]C)"

Well, if you want to be concise and efficient about it.....

**DonkeyOte** · 10-15-2009, 08:43 AM

ha - not really - first there's a typo - should be Cells not Range.

It was more to show working bottom-up as generally it's a little safer, here for example if there are no values in B you will get

B3: =SUM(B$2:B2)

for one value (B2) you'd get

B4: =SUM(B$2:B3)

using down method you'd get an error in both cases.

**janjan_376** · 10-15-2009, 10:09 AM

Hi everybody

SWEEP - It worked perfectly. Thank you very much. Also thank you for others effort assistance. I tried them and worked the same way.

I really appreciated all your efforts. Thank you.