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