Option Explicit
Dim LastRow As Long
With ActiveSheet
.Cells(.Rows.Count, "A").End(xlUp).Offset(1, 0).form ular1c1 _
= "=sum(r2c:r[-1]c)"
End With
That is what I put in the macro.
Thanks
--
punter
------------------------------------------------------------------------
punter's Profile:
http://www.excelforum.com/member.php...fo&userid=2044
View this thread:
http://www.excelforum.com/showthread...hreadid=550982