Formulae To Find Last Used Row In WorkSheet: Aladin's UDF

I found this post in the archive section. Its purpose is to find the Last Used Row in a Range, "A:A".

Using it, I get a #Name? error. I have placed the UDF in a module, placed the formulae in K1.

I have mixed data from A1:A34.

Function Used(r As Range) As Range

Dim q As Range
Set q = r.Parent.UsedRange.Cells(r.Parent.UsedRange.Cells.Count)
Set Used = Intersect(r, r.Parent.Range(r.Parent.Cells(1, 1), q))
End Function

=INDEX(A:A,SUMPRODUCT(MAX((LEN(USED(A:A))>0)*ROW(USED(A:A)))))