lLastRow = oSheet.UsedRange.Row + oSheet.UsedRange.Rows.Count - 1
MsgBox(lLastRow)

const xlValues                      =-4163 
const xlWhole                       =&H1
const xlPrevious                    =&H2
'    Dim rF As Range
'    Dim lLastRow As Long, lLastRow As Long
    'ищем последнюю ячейку на листе, в которой хранится хоть какое-то значение
    Set rF = oSheet.UsedRange.Find("*", , xlValues, xlWhole, xlPrevious)
    If Not rF Is Nothing Then
        lLastRow = 1 'последняя заполненная строка
        lLastCol = 1 'последний заполненный столбец
        MsgBox rF.Address 'показываем сообщение с адресом последней ячейки
    Else
        'если ничего не нашлось - значит лист пустой
        'и можно назначить в качестве последних первую строку и столбец
        lLastRow = 1
        lLastCol = 1
    End If
MsgBox(lLastRow)

sPrice = "C:\WORK\price.xls"
Set oExcelApp = CreateObject("Excel.Application")
oExcelApp.Visible = False
oExcelApp.DisplayAlerts = False
oExcelApp.EnableEvents = False
oExcelApp.AskToUpdateLinks = False

Set oWorkbook = oExcelApp.Workbooks.Open(sPrice)
Set oSheet = oWorkbook.Sheets(1)

oLastCell = oSheet.Cells.SpecialCells(xlCellTypeLastCell)
iRowsCount = oLastCell.Row