как выбрать последнюю заполненную ячейку

iClm = ActiveSheet.UsedRange.Column + ActiveSheet.UsedRange.Columns.Count - 1

iRow = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1

Пример определения номера строки и столбца последней заполненной ячейки.

UsedRange об'екта Worksheet

Для поиска последней заполненной ячейки можно воспользоваться свойством

если воспользоваться этим советом.

то использование этого варианта приведёт к возникновению ошибки, которую можно избежать,

Если рабочий лист защищён,

Предупреждение :

iClm = Range("A1").SpecialCells(xlLastCell).Column

iRow = Range("A1").SpecialCells(xlLastCell).Row

iAddress = Range("A1").SpecialCells(xlLastCell).Address

строки и столбца.

Пример определения адреса последней заполненной ячейки, а также номера её

SpecialCells и специальной константой xlLastCell

Для поиска последней заполненной ячейки можно воспользоваться методом

Заметки | Поиск последней заполненной ячейки

  Вопросы и Ответы. Советы. Примеры.

  Таблицы и VBA. Справочник.

Microsoft Excel | Заметки | Поиск последней заполненной ячейки