I would like to search through Column E and find the value "Open" if there is a hit I want to move 4 cells to the right and input the value "Gate 1" then go to the next "Open" in row E and do the same thing.
I am trying to use this on several different key words so that I can sort them together at a later point in the macro. For example "Open" and "Recieved" = "Gate 1" while "Approved" and "Disassemble" = "Gate 2"
Once I have accomplished this I will be able to sort them and Outline them grouped int the same category. This is what I have so far. I am obviously missing something:

Code:
Sub StatusQaulifierForOpenIsGate1()
    IFind = "Open"
    Set rFound = Columns(5).Find(What:=IFind, LookIn:=xlValues, LookAt:= _
        xlPart, MatchCase:=False, SearchFormat:=False)
        If Not rFound Is Nothing Then
            rFound.Activate
            rFound.Offset(0, Target.Column + 4).Value = "Gate 1"
    End If
End Sub
I have tried to add
Code:
Next
and
Code:
For rfound
into the code but I am unfamiliar with this process can someone please help me out? It would be much appreciated