.Find function

Ok

This is the fast way to do what you want.

This finds Yes in Column 3 and puts a Yes in Column 5.

Sub macro()
    With Columns(3)
        Set rngfind = .Find("Yes", .Cells(1, 1), LookIn:=xlValues, lookat:=xlWhole)
        If Not rngfind Is Nothing Then
            strFirstAddress = rngfind.Address
            Set rngpicked = rngfind
            Do
                rngpicked.Offset(0, 2).Value = "Yes"
                Set rngfind = .FindNext(rngfind)
            Loop While Not rngfind Is Nothing And rngfind.Address <> strFirstAddress
        End If
    End With
    
End Sub