Sub toto()
Dim i&, j&, k%, s$, p As Range, v()
With ActiveSheet
Set p = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))
v = p.Value
For i = 2 To UBound(v)
s = UCase(v(i, 1))
For j = Len(s) To 1 Step -1
k = Asc(Mid$(s, j, 1))
If 65 > k Or k > 90 Then s = Mid$(s, 1, j - 1) & Mid$(s, j + 1)
Next
v(i, 1) = s
Next
p.Value = v
End With
End Sub