Комфорт и автоматизация

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

Dim lngLastRow, lngLastCol as Long

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

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