ActiveCell.FormulaR1C1 = "=sum(r1c5:rc[-1])"

===
Or drop the selecting:

Dim myCell As Range
With ActiveSheet
Set myCell = .Range("e1").End(xlDown).Offset(1, 0)
End With
myCell.Value = "Total"
myCell.Offset(0, 1).FormulaR1C1 = "=sum(r1c5:rc[-1])"

mkerstei wrote:

I need to write a macro that will sum all of the values above the
selected cell. Rows above cell are variable, so it has to be flexible.
Below is my code. I believe the sum formula will be where the *****
are. Any help would be appreciated. Thanks.

Range("E1").Select
Selection.End(xlDown).Select
ReportLastRow = ActiveCell.Row
ActiveCell.Offset(rowOffset:=1, columnoffset:=0).Activate
ActiveCell.FormulaR1C1 = _
"Total"
ActiveCell.Offset(rowOffset:=0, columnoffset:=1).Activate
ActiveCell.FormulaR1C1 = *****

--
mkerstei
------------------------------------------------------------------------
mkerstei's Profile: http://www.excelforum.com/member.php...o&userid=25688
View this thread: http://www.excelforum.com/showthread...hreadid=548761

--

Dave Peterson