Find last cell used in a specific range

[Pat_The_Bat]

I have used macros previously to find the last row in a column, but right now I'm trying to look at a specific range, ("F52:F80") and find the last row in that particular range. Any help?
Thx!

 

[lrobbo314]

This UDF should do it. Just have to pass the range, F52:F80 as the 1 argument to the function.

Function LastRow(r As Range) As String
Dim Add() As String: Add = Split(r.Address, "$")
LastRow = Add(1) & Evaluate(Replace("LOOKUP(2,1/(@<>""""),ROW(@))", "@", r.Address))
End Function

 

[MARK858]

Maybe...

Range("F52:F80").Find("*", , xlValues, , xlByRows, xlPrevious).Row