Sub Макрос2()
Dim cell As Range, i As Long, cc As String
'поиск букв и замена
For Each cell In Selection '-выделяем нужный дипазон
    For i =  1  To Len(cell.Value) 'цикл по кол-ву символов
        cc = Mid(cell.Value, i,  1 ) 'вытаскиваем первый символ
        If Asc(cc) =  192  Then 'находим по кодировки русскую А
            Mid(cell.Value, i,  1 ) = Chr( 65 ) 'находим ,если первая буква А вставляем её(но затираем все,что до нее)
        Else
            zap = zap + cc 'если не находит ,до записывает в переменной
        End If
    Next i
Next cell
End Sub

Sub Макрос2()
Dim cell As Range, i As Long, cc As String, zap As String, sTemp As String
'поиск букв и замена
For Each cell In Selection '-выделяем нужный дипазон    sTemp = cell.Value
    For i =  1  To Len(sTemp) 'цикл по кол-ву символов
        cc = Mid(sTemp, i,  1 ) 'вытаскиваем первый символ
        If Asc(cc) =  192  Then 'находим по кодировки русскую А
            Mid(sTemp, i,  1 ) = Chr( 65 ) 'находим ,если первая буква А вставляем её(но затираем все,что до нее)
        Else
            zap = zap + cc 'если не находит ,до записывает в переменной
        End If
    Next i    cell.Value = sTemp
Next cell
End Sub