Check for Last Used cells

I want to find last used cells

Dim LastRow
        LastRow = sheet.Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=Microsoft.Office.Interop.Excel.XlSearchDirection.xlPrevious)
        MsgBox(LastRow)

My code not working ..
Please help me