макросы в excel vba одной строкой адрес последней ячейки

Адрес последней ячейки

Dim lngLastRow, lngLastCol as Long

'Номер последней строки на листе 
lngLastRow = ActiveSheet.UsedRange.Rows.Count

'Номер последнего столбца на листе 
lngLastCol = ActiveSheet.UsedRange.Columns.Count