found and insert

A..................................B
aluminium dec.................
cotton jan.....................
soybean feb..................right
oil dec
palm nov
rice dec........................right
etc

ok i need a macro if found soybean wording on row A, then B insert "right". if found rice wording on row A, then B insert "right".

how should i code thank

Hi

Assuming that your data stars in A1 then try

Sub bbb()
  wrdarr = Array("soybean", "rice")
  Set srcharr = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
  
  For i = LBound(wrdarr) To UBound(wrdarr)
    Set findit = srcharr.Find(what:=wrdarr(i))
    If Not findit Is Nothing Then
      
      firstadd = findit.Address
      Do
        findit.Offset(0, 1).Value = "right"
        Set findit = srcharr.Find(what:=wrdarr(i), after:=findit)
      Loop Until findit.Address = firstadd
    End If
  
  Next i
End Sub

HTH

rylo

thank a lot