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

[Посетитель 26.09.2023]

Работаю с файлами разной длинны пытаюсь оптимизировать процесс но не пойму как дать понять макросу что формулы нужно применить к в которых есть значения а пустые не трогать, если кто с таким сталкивался буду благодарен за подсказки в этом направлении

[Администратор]

Создайте файл-пример и поясните на его основе, что нужно сделать.

[Посетитель 26.09.2023]

Добрый день прикрепил файл примера что должно быть на выходе

[Администратор]

Написал вам два письма на почту с заголовком "Письмо с Форума по VBA, Excel и Word". Написал именно на почту, а не на форум.

=ЕСЛИ(A1<>"";ПРАВСИМВ(A1;4);"")

[Посетитель 26.09.2023]

Спасибо, но макрос не видит сколько строк находится и каким строкам применять правило если установить по умолчанию на максимальное количество строк то после сортировки от а до я в первую очередь вылезают пустые строчки. данное действие промежуточное в макросе и упираюсь в эту проблему(

[Администратор]

Вы предоставили неточный пример. Вам надо сделать другой файл-пример и на его основе пояснить, что нужно сделать.

[Посетитель 26.09.2023]

Добрый день, изменил немножко файл

[Посетитель 26.09.2023]

Нужен макросс который заменяет протягивание формулы до последней заполненной ячейки (когда на формулу справа внизу нажимаю два раза на чёрный крестик)

[Посетитель 26.09.2023]

Вот часть кода макросса
Selection.AutoFill Destination:=Range("H2:H999")
Range("H2:H900").Select

нужно что бы протягивал до последней заполнено ячейки в столбце G иначече фурмалы в пустых ячейках мешают дальнейшей работе макроса(

[Администратор]

Sub Макрос()

    Dim Lr As Long
   
   
    ' Поиск последней строки в столбце G.
        ' End не ищет в скрытых строках.
    Lr = Cells(Rows.Count, "G").End(xlUp).Row
   
    ' Протягивание формулы, которая находится ячейке H2.
    Range("H2").AutoFill Destination:=Range("H2:H" & Lr)

End Sub

[Посетитель 26.09.2023]

Спасибо огромное работает