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)