Local de a a z ou de z a a ?

item do maior para o menor ou do menor para o maior?

Sub Macro1()

    Range("A1:D10191").Select
    ActiveWorkbook.Worksheets("Planilha1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Planilha1").Sort.SortFields.Add Key:=Range( _
        "C2:C10191"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    ActiveWorkbook.Worksheets("Planilha1").Sort.SortFields.Add Key:=Range( _
        "A2:A10191"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Planilha1").Sort
        .SetRange Range("A1:D10191")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Não é isso.

aqui foi apenas classificado o local.

O que eu preciso é o seguinte (Classificar por local A-Z porem os item que possuírem mais de um loca que fiquem agrupados).

Creio que o xlarruda chegou ao que você queria.

Se eu consegui entender, deve ser isso...

Sub Classificar()
'
' Classificar Macro
'

'
On Error GoTo trataerro

  Application.ScreenUpdating = False
    [Plan1].Activate
    ActiveSheet.ShowAllData
    [Plan1].Range("A1").Select
    Range("A1:D1").Select
   Range("A1:D1").AutoFilter
proced:
    ActiveWorkbook.Worksheets("Planilha1").AutoFilter.Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Planilha1").AutoFilter.Sort.SortFields.Add Key:= _
        Range("C1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Planilha1").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    ActiveWorkbook.Worksheets("Planilha1").AutoFilter.Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Planilha1").AutoFilter.Sort.SortFields.Add Key:= _
        Range("A1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Planilha1").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Exit Sub
    
trataerro:
 
     [Plan1].Range("A1").Select
    Range("A1:D1").Select
   Range("A1:D1").AutoFilter
   GoTo proced
    Application.ScreenUpdating = True
    
    
End Sub

Se não for avisa ai .. Abçr!

Usa o gravador de macros.