При нахождении определенного слова в одной ячейке, меняется другая ячейка - VBA

Формулировка задачи:

Доброго дня! Помогите пожалуйста написать макрос. пример показан на скриншотах 1 скрин - в ячейкее E5 нет слов bad_item поэтому E9 остается неизменной (значение 100) 2 скрин - в ячейкее E5 появляюся слова bad_item поэтому E9 берет следующее значение из столбца G (значение 200) 3 скрин - в ячейкее E5 нет слов bad_item поэтому E9 остается неизменной (значение 200) 4 скрин - в ячейкее E5 появляюся слова bad_item поэтому E9 берет следующее значение из столбца G (значение 300) и т.д. ячейка Е5 постоянно меняется... и за ней должна меняться ячейка Е9 как только в ячейке Е5 появляется слова bad_item то сразу же ячейка Е9 должна переходить на следующее значение столбца G (100,200,300,400....и т. д.)

Решение задачи: «При нахождении определенного слова в одной ячейке, меняется другая ячейка»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Dim i2 As Long
 
Sub bad_item()
    Dim i As Long
    i = 17
    If i2 = 0 Then i2 = 10
    If InStr(1, Range("E5").Text, "bad_item", 1) Then
        Range("E9").Value = Excel.Application.ActiveSheet.Columns("g").Cells(i2).Value
        If i2 < i Then
            i2 = i2 + 1
        Else
            Reset
        End If
    End If
End Sub
 
Private Sub Worksheet_Change(ByVal Target As Range)
    With Target
        If Target.Row = 5 And Target.Column = 5 Then bad_item
    End With
End Sub
 
Private Sub Reset()
    i2 = 0
End Sub