Activate cell at end of range

[G]

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

 

[Bob Phillips]

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]

Thanks for your quick response! The coding definitely works!