Finding last row used in Excel worksheet

Efficient code available to find the last row used in worksheet would be :

Sub Find_LastRow()
      Dim lngLastRow      As Long
      lngLastRow = Sheets("sheet_name_here").Cells.Find("*", searchorder:=xlByRows, searchdirection:=xlPrevious).Row
      Debug.Print lngLastRow
End Sub