Código corrigido no anexo

.
karc28, valeu, mas não funcionou!! ... Quando fui postar o exemplo (após esquecer k), vc já tinha respondido!!
.

Código corrigido no anexo

.
??????????????????????????????????
.

    Sub teste()

On Error GoTo fim
    Dim colunaSelecionada As Long

    colunaSelecionada = ActiveCell.Column



    Range(Cells(2, colunaSelecionada), Cells(2000, 68)).Sort _
    Key1:=Cells(3, colunaSelecionada), order1:=xlDescending, _
    Key2:=Range("BE3"), order2:=xlAscending, _
    Header:=xlYes
    MsgBox "SHOW - JULHO CLASSIFICADO!", vbInformation, "Parabéns"
    Range("BE3").Select
fim:
MsgBox "Não foi possível efetuar a classificação"

    End Sub

Código corrigido no anexo

.
Alguém dá uma luz (já que a besta aqui AMA macro, mas é um zero à esquerda em VBA k)??
.

Exige estudo, dedicação e prática. Mas, pela correria do dia a dia, muitos não estudam, não se dedicam, não praticam. Eu também sou assim. Todos são assim em alguma área do conhecimento.
                                                                                                	                                                

                                                        
 
                                                    
	                                        

.
Valeu klarc28 ... resolvido!!
.
PS: Todos nós temos bloqueio para alguma coisa k ... eu tenho para aprender VBA!! ... Se os códigos fossem em português ficaria bem mais fácil para aprender!!
.
OPS!! ... Editando ...
.
Descobri um problema: quando classifico pela coluna AR, por exemplo, beleza, a macro classifica TUDO AR:BP ........... mas se classifico pela coluna AU, as colunas AR:AT não acompanham!!! ...... Ou seja, a macro deve classificar pela coluna selecionada, MAS levando TUDO, inclusive as colunas anteriores!!
.

Favor verificar o anexo.