Например:  
Set X = Sheets(1).UsedRange.Find("limit", LookIn:=xlValues, LookAt:=xlPart, MatchCase:=False)  
Далее, если нашли, имеем X.Row, X.Column

Но не даёт ответа на вопрос :)

Вариант 1  
----------------------------  
On Error Resume Next  
iRow = Cells.Find(What:="*", LookIn:=xlValues, SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row    
iClm = Cells.Find(What:="*", LookIn:=xlValues, SearchDirection:=xlPrevious, SearchOrder:=xlByColumns).Column    
----------------------------  
Примечание :    
Вышеупомянутый синтаксис может вызвать ошибку, если указанный диапазон не содержит данных. Для того, чтобы этого избежать, во всех примерах использован "режим отложенной ошибки" On Error Resume Next    
 
Вариант 2  
----------------------------  
Set iLastCell = Cells.Find(What:="*", LookIn:=xlValues, SearchDirection:=xlPrevious, SearchOrder:=xlByRows)    
If Not iLastCell Is Nothing Then    
  iRow = iLastCell.Row    
  iClm = iLastCell.Column    
End If  
----------------------------  
Комментарий :    
важно Этот вариант будет корректно работать только при условии, что ячейки не содержат формул, которые возвращают пустую строку "" или апостроф '  
 
http://msoffice.nm.ru (с)  
 
 
-=38238=-

:)  
Поздно добавили...