[Spirosgr]

Δεν γνωρίζω την μακροεντολή που σου δίνει τα αποτελέσματα (strings)
στην στήλη Α, αλλά τα Ε (και πιθανό τα Α ή και άλλοι χαρακτήρες που ζητάς)
είναι Αγγλικά, και όχι Ελληνικά.

Δεν είναι δυνατόν να βρεί ΛΑΕ στα Ελληνικά, αν το string είναι ΛΑΕ, με Ε λατινικό...

Σε πρώτη φάση τσέκαρε αυτό...

Σε δεύτερη, χρησιμοποίησε την ρουτίνα:

Sub FindStr()
    Dim rng         As Range
    Dim c           As Range
    Dim lrow        As Long
    Dim iFound      As Byte
    Dim tSearch     As String

    lrow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row
    Set rng = Sheet1.Range("a1:a" & lrow)

    tSearch = Sheet1.Range("d1").Value

    rng.Interior.Color = xlNone
    
    For Each c In rng
        iFound = InStr(c.Value, tSearch)
        If iFound > 0 Then
            c.Interior.Color = vbYellow
        End If
    Next c
End Sub

είτε αυτόνομα είτε προσαρμόζοντας και ενσωματώνοντάς την στην υπάρχουσα
(εφ' όσον η υπάρχουσα, δεν έχει σφάλματα).

Σημειώσεις:
1. Στο κελί d1, πληκτρολογούμε το string που θέλουμε να αναζητήσουμε.
2. Όπου βρεθεί (να εμπεριέχεται), το κελί της Α στήλης γίνεται κίτρινο.
3. Οι παράμετροι της ρουτίνας μπορούν να αλλάξουν (περιοχή αναζήτησης, κελί αναζήτησης, χρώμα εμφάνισης)
4. Αν κάποιες Dim, υπάρχουν στην μακροεντολή που θα προσαρμόσετε την πιο πάνω ρουτίνα,
θα πρέπει να αλλάξουν.