Experimente o seguinte código baseado nas referências da sua planilha modelo:

Sub Arrumar_Unicode()

Dim i As Long
Dim rlast As Long
Dim sWhat As String, sReplacement As String
rlast = Sheets("Plan2").Cells(Rows.Count, "A").End(xlUp).Row

For i = 1 To rlast

sWhat = Trim(Sheets("Plan2").Cells(i, "A").Text)
sReplacement = Trim(Sheets("Plan2").Cells(i, "B").Text)

    Cells.Replace What:=sWhat, Replacement:=sReplacement, LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
        
Next i

End Sub

Rode este código na planilha onde deseja arrumar.