the code is finding repeated values but i need to search values from E column to D

i have one column(SEARH WORD) Where i has some words
like
CABLE
CONNECTOR
CLIP
BELT....ETC

I NEED TO FIND THIS WORDS IN OTHER COLUMN (XX) AND MARK COLOR(YELLOOW)

Sub SER()
'
    
   Fnd = InputBox("Enter text!", "SERACH_TEXT")
   ' Fnd = "#MULTIVALUE"
    Cells.Find(What:=(Fnd), After:=ActiveCell, LookIn:=xlFormulas, _
    LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
    MatchCase:=False).Activate
     'Rows("51:51").Select
    With Selection.Interior
        .ColorIndex = 6
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        
    End With
'End Sub

'Cells.FormatConditions.Delete
End Sub


Public Sub SER2()
Dim rngArea As Range
Dim Fnd As Variant

Fnd = InputBox("Enter text!", "SEARCH_TEXT")
For Each rngArea In Selection
'Prije bilo For Each rngArea In Selection.Areas
    With rngArea
    If InStr(UCase(rngArea.Value), UCase(Fnd)) > 0 Then
        With rngArea.Interior
        .ColorIndex = 6
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        End With
    End If
    End With
Next rngArea
End Sub