Fazer essa classificação manualmente nao resolve????????

Dados > Classificar

Infelizmente Não, manualmente é totalmente inviável.

Clicar em uma celula depois

Ctrl+ * do teclado numerico

ou Ctrl+Shift+ 8 do teclado alfanumerico
Clicar em um botao determinar as colunas que vai classificar e confirmar é inviavel????

Nao entendi!!

Sinceridade não entendi, e creio que o colega Marcelo também, visto que o proposto por ele é extremamente simples.
Quando classifica uma range por uma coluna, todos os dados da linha acompanham a classificação.
Aparentemente não é isso que deseja, pode explicar melhor e demonstrar em seu exemplo (manualmente) como espera que fique.

Você pode fazer o seguinte.. Sheets(suaplaniha).Range(seuintervalo).Sort Key1:=Range(estado), Order:=xlAscending

Fiz a planilha com 3 exemplos, um sem nenhum codigo, o segundo com o codigo que está no topico, e o terceiro que é o como eu gostaria que ficasse com alguma codificação complementar,

e fazer manual não é viavel pois isso é só um exemplo da planilha que eu tenho, ela é de busca no sistema, e não será usada somente por mim, então não posso me dar o luxo de acreditar que o usuario final va "organizar" toda vez que for pesquisado o conteudo da mesma.

Obrigado!

Esse codigo foi feito com o gravador de macros do excel

Ele esta utilizando o seguinte criterio de classificação

Coluna C e em seguida pela Coluna G em ordem alfabetica de A/Z

Cole o codigo em um Modulo e associe a um botao ou a outra macro que desejar..

Faça os testes, segue o codigo

Sub Classificar()
    Range("C1:G1").Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveWorkbook.Worksheets("Plan1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Plan1").Sort.SortFields.Add Key:=Range("C2:C17"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("Plan1").Sort.SortFields.Add Key:=Range("G2:G17"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Plan1").Sort
        .SetRange Range("C1:G17")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("C2").Select
End Sub