强大的Excel 的 VBA

今天遇到一个对于vba来说简单的问题 但是直接使用excel的话 会麻烦点

我想通过 查找E列单元格中的指定文字，如果查找到 把G列文字的该行对应的单元格填充相应的内容

Sub 宏1()
'
' 宏1 宏
'

For Each Rng In Range("E1:E8130")
    If Rng = "指定文字" Then
        a = Rng.Row
        b = Rng.Column
        Cells(a, 7) = "填充文字"
    End If
Next
End Sub