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