Boa tarde!!
Eu não entendi, mas tente isso

Sub AleVBA_17245()
    Dim Rng As Range
    Dim c As Range
    On Error Resume Next
    Set Rng = Cells.SpecialCells(xlCellTypeConstants, 2)
    For Each c In Rng
        c.Value = UCase(c.Value)
    Next c
End Sub

Att

Tentei usar os códigos abaixo, para colocar os nomes da Coluna "A" em ordem alfabética e em letras maiusculas, até que deu certo, mas ocorria uma certa demora e o curso ficava tremendo.
Private Sub Worksheet_Activate()
ActiveSheet.ScrollArea = "$A$2:$A$1000"
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column <> 1 Then Exit Sub
Dim LR As Long
LR = Cells(Rows.Count, "A").End(xlUp).Row
Range("$A$2:$A" & LR).Sort Key1:=Range("$A$2")
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Set Planilha = ThisWorkbook.ActiveSheet
For Each Célula In Planilha.UsedRange.Range("A1:F")
Célula.Value = UCase(Célula.Text)
Next Célula
Application.ScreenUpdating = True
End Sub

Como faço para corrigir e otimizar o código?
Abçs.

Estou enviando o modelo de cadastro para vcs darem uma olhada no código.
Abçs.

E muito dificil escrever diretamente em MAIUSCULO e classificar a planilha apos a digitação.

Esse é o popular tiro de canhão para matar mosquito...

Marcelo Prudencio
Obrigado pela atenção. Abçs.