Need formula to find exact string from list of agency

Dear experts


I have list of agents name in col name which is incomplete values need formula to chance the values from list of agency (m2:m17)

e.g if text is like that Sainbury ,bury's , change as Sainsbury's Bank

find the attachment

Does this help?

Sub breadwinner()
Dim i As Long, x As Range, y As String
For i = 2 To Range("A" & Rows.Count).End(3).row
    y = Left(Cells(i, "A"), 4)
    Set x = Columns(13).Find(y, LookIn:=xlValues, lookat:=xlPart)
        If Not x Is Nothing Then
            Cells(i, "A") = x
        End If
    Set x = Nothing
Next i
End Sub

Sir amazing!!

Glad to help out.