Hi Hawk,

Try:

Dim rng As Range

Set rng = Cells(Rows.Count, "J").End(xlUp)


---
Regards,
Norman



"hawk" wrote in message
news:Arfzf.256935$2k.125854@pd7tw1no...
Trying to make a macro that will find the last cell, that can vary, in
colum J
but having trouble getting my brain around how to do it.
Any help appreciated.

Roger


Sub Macro1()
'
'
Application.Goto Reference:="R5C8"
'Selection.End(xlDown).Select
Range("A1:J68").Select
Range("J68").Activate
End Sub