Что то типа того

Буквы на проверку А и В, можно добавлять и остальные

макрос замены английских букв на русские - был сохранен, применял- работало. Можно разобраться, не зная VBA (как я), и переделать на обратную замену. Видно, что есть два ряда букв с ограниченным кол-вом букв - только такие буквы могут совпадать по написанию в англ. и рус. алфавите, но по потребности можно расширить всем алфавитом по аналогии:
Sub Repair_RUS()   ' заменить латинские буквы такими же по начертанию русскими
 If TypeName(Selection) <> "Range" Then Exit Sub
 Dim LATChr$: LATChr = "CcEeTOopPAaHKkXxBM"
 Dim RUSChr$: RUSChr = "СсЕеТОорРАаНКкХхВМ"
 Dim i%
 For i = 1 To Len(LATChr)
    Intersect(Selection, ActiveSheet.UsedRange).Replace _
          What:=Mid(LATChr, i, 1), _
          Replacement:=Mid(RUSChr, i, 1), _
          LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=True
 Next i
End Sub