Определить последнюю заполненную строку и столбец — Visual Basic(Бейсик)

With ActiveSheet.UsedRange 
     iRow = .Row + .Rows.Count - 1 
     iClm = .Column + .Columns.Count - 1 
End With

With Worksheets(1).UsedRange 
     iRow = .Row + .Rows.Count - 1 
     iClm = .Column + .Columns.Count - 1 
End With

With Worksheets("Лист1").UsedRange 
     iRow = .Row + .Rows.Count - 1 
     iClm = .Column + .Columns.Count - 1 
End With
Существуют и другие способы определения последней заполненной ячейки.
Обратите внимание на следующие инструкции, которые помогут определить количество строк и столбцов в объекте UsedRange

iCountRow = ActiveSheet.UsedRange.Rows.Count 
iCountClm = ActiveSheet.UsedRange.Columns.Count