Afinal vc quer filtrar ou ordenar, sao coisas diferentes e por sequencia realizados de forma diferente

desculpe seria ordenar por grupo e por código, ai digo que na filtragem avançada não é possível fazer isso, pelo menos eu não sei como fazer.

Teria alguma ideia?

Esse codigo foi feito com o gravador de macros

Sub Macro1()
'
' Macro1 Macro
'

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

Foi simples assim. Muito obrigado.