Function ОставитьКириллицу(ячейка$)
    For i = Len(ячейка) To 1 Step -1
        a = Mid(ячейка, i, 1)
        If Not a Like "[А-яЁё]" Then ячейка = Replace(ячейка, a, "")
    Next
ОставитьКириллицу = ячейка
'ОставитьКириллицу = Application.WorksheetFunction.Trim(Application.WorksheetFunction.Clean(ячейка))
End Function

Function Cir(rng As Range) As String
    Dim i As Integer, s As String: s = rng.Value
    For i = 0 To 191
        If i <> 32 Then s = Replace(s, Chr(i), " ")
    Next
    Cir = Application.Trim(s)
End Function

set rng = Selection

With rng
.Replace "a", " "
.Replace "b", " "
.Replace "c", " "
.Replace "d", " "
…
.Replace "Z", " "
End With

For Each cell In rng
      If (Not IsEmpty(cell)) And (Not IsError(cell)) Then cell.Value = Application.WorksheetFunction.Trim(Application.WorksheetFunction.Clean(cell.Value))
Next cell

Public Function КИРИЛЛИЦА(строка As String) As String
Dim C() As Byte, y As Long, x As Long, Z As Long, CK() As Byte
C = строка 'содержимое ячейки
ReDim CK(0 To UBound(C)) 'разбиваем строку (содержимое ячейки) в массив по символам, где 0 - первый элемент, а Ubound определяет верхнюю границу массива, то есть последний элемент
    For x = 0 To UBound(C) - 1 Step 2 'только русский алфавит, Ё,ё + пробел. Цикл по каждому символу строки. Шаг = "2", потому что каждый символ кодируется 2мя байтами. "-1" это, видимо, потому что последний символ что-то вроде служебного обозначения возврата данных
        If C(x + 1) = 4 Then ' "4" это конец передачи данных. Что-то вроде проверки на последний символ? Не понял.
            If (C(x) > 15 And C(x) < 80 Or C(x) = 1 Or C(x) = 81) Then 'от "освобождения канала данных" до лат."O" включительно или "начало заголовка" или "Q"? Не понял.
                Z = Z + 1
                If Z <> 1 Then
                    y = y + 2
                    CK(y + 1) = C(x + 1)
                    CK(y) = C(x)
                End If
            ElseIf C(x + 1) = 0 Then
                If C(x) = 32 Then
                    If CK(y + 1) <> 0 Or CK(y) <> 32 Then
                        Z = Z + 1
                            If Z <> 1 Then y = y + 2
                                CK(y + 1) = C(x + 1)
                                CK(y) = C(x)
                            End If
                    End If
                End If
    Next
ReDim Preserve CK(0 To y + 1)
КИРИЛЛИЦА = Trim(CK) 'чистим ведущие и хвостовые пробелы
End Function