Excel VBA Макросы: Заполнение пустых ячеек текстом при условии что заполнены еще 2 ячейки.

[VitaliyPegushin]

Нужно заполнить столбцы G, H по этим условиям:
ячейка в столбце G или H должна быть пустой соответственно.
В столбец G нужно записать фразу "Не определен".
В столбец H нужно записать фразу "Отсутствует".

[вложение удалено администратором]

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

Макрос

Sub Макрос()

    Dim lr As Long, i As Long
   
   
    ' Отключение монитора, чтобы ускорить макрос.
        ' Можно ещё отключить формулы, если их много.
    Application.ScreenUpdating = False
   
    ' Поиск последней заполненной строки в столбце C.
        ' End не ищет в скрытых строках.
    lr = Cells(Rows.Count, "C").End(xlUp).Row
   
    ' Движение по строкам со строки 8 до последней строки.
    For i = 8 To lr
       
        ' Заполнение ячейки в столбце G.
        '* Если ячейка в столбце G пустая.
        If Cells(i, "G").Value = "" Then
            Cells(i, "G").Value = "Не определен"
        End If
       
        ' Заполнение ячейки в столбце H.
        '* Если ячейка в столбце H пустая.
        If Cells(i, "H").Value = "" Then
            Cells(i, "H").Value = "Отсутствует"
        End If
       
    Next i
   
    ' Сообщение.
    Application.ScreenUpdating = True
    MsgBox "Готово.", vbInformation

End Sub

[свернуть]

[VitaliyPegushin]

Спасибо большое.