Just change his
MsgBox x
statement to become
ActiveCell = x

or skip a step and change
x = Application.WorksheetFunction.Sum(r)
MsgBox x

to become simply
ActiveCell = Application.WorksheetFunction.Sum(r)


"puiuluipui" wrote:

Hi Gary, it's working if i manually select last cell in "I" column that
contain word "Total".
The problem is that i dont need msgbox with the result. I need the result in
a cell. My code finds last cell in "I" column that contain "Total" and then
select next cell. I just need to sum cells below "Total" (last "total" in
range) and the result to be in a cell. I need the result to remain in my
table.
Can this be done?
Thanks!

"Gary''s Student" wrote:

Sub dural()
Dim r As Range
Set r = Range(ActiveCell.Offset(1, 0), Cells(Rows.Count, ActiveCell.Column))
x = Application.WorksheetFunction.Sum(r)
MsgBox x
End Sub

--
Gary''s Student - gsnu200908