Sub AddTotal()
Set rng2 = Range("K8").End(xlDown)
Set rng = Range("K8", rng2)
rng2.Offset(1, 0).Formula = "=SUM(" & rng.Address & ")"
End Sub


--

HTH

RP
(remove nothere from the email address if mailing direct)


"G" wrote in message
...
I want to be able to automatically find the last cell in the range, offset
(1,0) and activate/select the cell to place the sum of the range. The
code
below does not activate the cell at the end to properly place the total
amount. Any help is greatly appreciated!

Sub AddTotal()
With ActiveCell
Set Rng = Range("K8", Range("K8").End(xlDown))
.Formula = "=SUM(" & Rng.Address & ")"
End With
End Sub

G