создайте макрос который будет кодировать текст сменяя буковкы "а" в тексте

Всегда на один и тот же, на один и тот же во всем тексте при каждом вызове макроса либо на произвольный каждый встреченный знак "а"? И еще, буковкы латинские или российские? И произвольный знак - он буква либо вообщем хоть какой?

буковкы а российские

символ хоть какой

Начальный текст поместить в ячейку A1, итог будет в А2

Sub Rep()
    n1 = Asc(" ")
    n = Asc("я") - n1 + 1
    Randomize Timer
    s = Cells(1, 1).Value
    For i = 1 To Len(s)
        If Mid(s, i, 1) = "а" Then
            Mid(s, i, 1) = Chr(Int(n * Rnd + n1))
        End If
    Next i
    Cells(2, 1).Value = s
End Sub

Тестовое решение:
Наша Маша - растеряша!
Н3шЮ МHш - рястеряшМ!