Sub Tester1()
Dim rng As Range
Set rng = Cells(Rows.Count, ActiveCell.Column).End(xlUp)(2)
rng.FormulaR1C1 = "=Sum(R2C:R[-1]C)"
End Sub

Regards,
Tom Ogilvy


"susiel" wrote in message
...
I have a worksheet that I import data into weekly. I have a macro that
formats all the data on separate sheets, etc. I'm trying to add a
macro that will sum the totals with a beginning range that is always
the same but the bottom of the range is always different. I use a
relative macro that takes me to the last cell with data to actually put
the total in. Now, how do i get it to total from that cell always up
to row 2?



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