Sub Repair_RUS()   ' заменить в не скрытых ячейках выделенного диапазона латинские буквы такими же по начертанию русскими
    With ActiveSheet.UsedRange
        If Intersect(ActiveWindow.RangeSelection, .SpecialCells(xlCellTypeVisible), .SpecialCells(xlCellTypeConstants)) Is Nothing Then Exit Sub
        Application.ScreenUpdating = False: Application.EnableEvents = False
        Dim LATChr$: LATChr = "CcEeTOopPAaHKkXxBM"
        Dim RUSChr$: RUSChr = "СсЕеТОорРАаНКкХхВМ"
        Dim i%
        For i = 1 To Len(LATChr)
            Intersect(ActiveWindow.RangeSelection, .SpecialCells(xlCellTypeVisible), .SpecialCells(xlCellTypeConstants)).Replace _
                    What:=Mid(LATChr, i, 1), Replacement:=Mid(RUSChr, i, 1), LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=True
        Next i
    End With
    Application.ScreenUpdating = True: Application.EnableEvents = True
End Sub

Sub Repair_LAT()   ' заменить в не скрытых ячейках выделенного диапазона русские буквы такими же по начертанию латинскими
    With ActiveSheet.UsedRange
        If Intersect(ActiveWindow.RangeSelection, .SpecialCells(xlCellTypeVisible), .SpecialCells(xlCellTypeConstants)) Is Nothing Then Exit Sub
        Application.ScreenUpdating = False: Application.EnableEvents = False
        Dim arrENG: arrENG = Split("C c E e T O o p P A a H K k X x B M")
        Dim arrRUS: arrRUS = Split("С с Е е Т О о р Р А а Н К к Х х В М")
        Dim i%
        For i = 0 To UBound(arrENG)
            Intersect(ActiveWindow.RangeSelection, .SpecialCells(xlCellTypeVisible), .SpecialCells(xlCellTypeConstants)).Replace _
                    What:=arrRUS(i), Replacement:=arrENG(i), LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=True
        Next i
    End With
    Application.ScreenUpdating = True: Application.EnableEvents = True
End Sub