How can I find last row that contains data in a specific column?

Question

How can I find the last row that contains data in a specific column and on a specific sheet?

Answer 1

Public Function LastData(rCol As Range) As Range    
    Set LastData = rCol.Find("*", rCol.Cells(1), , , , xlPrevious)    
End Function

Usage: ?lastdata(activecell.EntireColumn).Address