Public Function LastCell(Optional ws As Worksheet) As Range  
   If ws Is Nothing Then Set ws = ActiveSheet  
   Set rng = ws.Cells  
   Set LastCell = rng(1)  
   On Error Resume Next  
   Set LastCell = Intersect( _  
     rng.Find("*", rng(1), xlValues, xlWhole, xlByRows, _  
       xlPrevious).EntireRow, _  
     rng.Find("*", rng(1), xlValues, xlWhole, xlByColumns, _  
       xlPrevious).EntireColumn)  
End Function  
 
Sub Test()  
MsgBox LastCell(Worksheets(1)).Row  
End Sub

UsedRange включает не только данные, но и форматы, т.ч. я бы на него не очень полагался, если речь не идет о чистой базе данных без форматов :-)

Ну уж тогда и мои комментарии про все сразу :-)  
 
1) UsedRange  
- включает как заполненные ячейки, так и пустые, но с форматированием  
- не всегда автоматически обновляется после удаления строк (версии до XL2007)  
 
2) SpecialCells(xlCellTypeLastCell)  
- включает как заполненные ячейки, так и пустые, но с форматированием  
- не всегда автоматически обновляется после удаления строк  
 
3) Find(What:="*"...  
- дает неверный результат в случае со слитыми ячейками в конце диапазона  
 
4) End(xlDown)  
- действует только в одном столбце  
- дает последнюю строку только в непрерывном списке  
 
5) End(xlUp)  
- действует только в одном столбце

kuziavka,  
потеряли "свою" тему?  
http://www.planetaexcel.ru/forum.php?thread_id=27416