Activate cell at end of range

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

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
 
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)
 
Back
Top