Макрос
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