Sub Highlight_matches()

    Dim ws As Worksheet
    Dim lastA As Long, lastE As Long
    Dim i As Long, j As Long
    Dim nameE As String
    Dim textA As String
    
    Set ws = ActiveSheet
    
    ' Последние строки в столбцах A и E
    lastA = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    lastE = ws.Cells(ws.Rows.Count, "E").End(xlUp).Row
    
    ' Проходим по каждому имени в столбце E
    For i = 1 To lastE
        
        nameE = Trim(ws.Cells(i, "E").Value)
        If nameE <> "" Then
            
            ' Ищем имя в столбце A
            For j = 1 To lastA
                
                textA = ws.Cells(j, "A").Text   ' .Text — важно для объединённых ячеек
                
                If textA <> "" Then
                    ' Проверяем вхождение имени
                    If InStr(1, textA, nameE, vbTextCompare) > 0 Then
                        ws.Cells(i, "E").Interior.Color = RGB(255, 255, 0) ' Жёлтая подсветка
                        Exit For
                    End If
                End If
                
            Next j
            
        End If
        
    Next i

End Sub