Координаты последней ячейки в таблице

Определяем последние ячейки координаты в текущей таблицы.

 

Dim lngLastRow, lngLastCol as Long
 
'Номер последней строки на листе
varLastRow = ActiveSheet.UsedRange.Rows.Count
 
'Номер последнего столбца на листе
varLastCol = ActiveSheet.UsedRange.Columns.Count