Sub xllastusedrow()
Dim rnglastused As Range
Set rnglastused = Cells.Find(What:="*", After:=[A1], LookIn:=xlFormulas, Searchorder:=xlByRows, Searchdirection:=xlPrevious)
MsgBox "Last used row in this sheet is: " & rnglastused.Address
rnglastused.Offset(0, 1).Value = "LastCell"
End Sub