Listo abaixo uma Macro para uma Folha de Cálculo Excel.

Coloco linhas de informação antes de cada operação.

Alteração das variáveis A1 A11 B11 C11 K11 M50 
Permitem ajustar esta Macro a outras necessidades do operador.

Coloque Descending em vez de Ascending para alterar, em qualquer Chave, o sentido da Ordenação.

Basta copiar o texto abaixo e transferi-lo para a área das Macros em qualquer Folha de Cálculo Excel para funcionar.

' Início da Macro de Ordenação com o título OrdKCA  ==============

Sub OrdKCA()

' OrdKCA Macro

' Macro recorded 2003-10-19 by Eng. Faro Barros

' Seleciona-se a Área a Ordenar

Range("A11:M50").Select

' Indica-se que a ordem de ordenação vai ser pelas colunas K B C
'e que o Ordenação é ascendente, etc.

' Nota - Se as 5 linhas a seguir ficarem separadas após a cópia junte-as até ficarem a preto

Selection.Sort Key1:=Range("K11"), Order1:=xlAscending, _
Key2:=Range("B11"), Order2:=xlAscending, _
Key3:=Range("C11"), Order3:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom

' No final vamos colocar uma mensagem na Célula A1

Range("A1").Select

' com o Texto a seguir

ActiveCell.Value = "Ordenada por KCA"

' Colocamo-nos no final na célula A11

Range("A11").Select

End Sub

' Fim    da Macro de Ordenação com o título OrdKCA =================