if the ActiveCell is at the top of the range
Set rng = Range(ActiveCell, ActiveCell.End(xldown))
tot = Application.Sum(rng)

if the activeCell is at the bottom of the range (next blank cell

set rng = Range(ActiveCell.Offset(-1,0),ActiveCell(-1,0).End(xlup))
tot = Application.Sum(rng)

or
ActiveCell.Formula = "=Sum(" & rng.Address & ")"

--
Regards,
Tom Ogilvy



"raymondsum" wrote in message
...
i want to sum up certain range but i dont get the range as it is
different in every time when running program.how do i write a macro to
sum up range. i have already used "alt+=", but it cant satisify because
it return the designated range.



------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~ View and post usenet messages directly from http://www.ExcelForum.com/