All three of these should select the last row.
Sub Try_This()
Cells(Cells.Find(What:="*", SearchOrder:=xlRows, _
SearchDirection:=xlPrevious, LookIn:=xlFormulas).Row, _
Cells.Find(What:="*", SearchOrder:=xlByColumns, _
SearchDirection:=xlPrevious, LookIn:=xlFormulas).Column).EntireRow.Select
End Sub
Sub Or_This()
Cells(Cells.Find("*", , , , xlByRows, xlPrevious).Row, _
Cells.Find("*", , , , xlByColumns, xlPrevious).Column).EntireRow.Select
End Sub
Sub Or_Just_So()
Cells.Find("*", , , , xlByRows, xlPrevious).EntireRow.Select
End Sub