[stam75]

Γιώργο με φώτισε και έκανα δύο καταγραφές μακροεντολών.
πως όμως τώρα μπορώ να τις δουλεύω και τις δύο μαζί με ένα κουμπί;

Sub FirstFilter()
'
' FirstFilter ÌáêñïåíôïëÞ
'

'
    Range("C6:F6").Select
    Selection.AutoFilter
    Range("C6").Select
    ActiveWorkbook.Worksheets("Öýëëï1").AutoFilter.Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Öýëëï1").AutoFilter.Sort.SortFields.Add Key:=Range _
        ("C7:C31"), SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
        "ÁÈÇÍÁ,ÈÅÓÓÁËÏÍÉÊÇ,ÐÁÔÑÁ,ÇÑÁÊËÅÉÏ,ËÁÑÉÓÁ,ÂÏËÏÓ,ÉÙÁÍÍÉÍÁ,ÔÑÉÊÁËÁ,×ÁËÊÉÄÁ,ÓÅÑÑÅÓ,ÁËÅÎÁÍÄÑÏÕÐÏËÇ,ÎÁÍÈÇ,ÊÁÔÅÑÉÍÇ,ÁÃÑÉÍÉÏ,ÊÁËÁÌÁÔÁ,ÊÁÂÁËÁ,×ÁÍÉÁ,ËÁÌÉÁ,ÊÏÌÏÔÇÍÇ,ÑÏÄÏÓ,ÄÑÁÌÁ,ÂÅÑÏÉÁ,ÊÏÆÁÍÇ,ÊÁÑÄÉÔÓÁ,ÑÅÈÕÌÍÏ,ÐÔÏËÅÌÁÚÄÁ,ÔÑÉÐÏËÇ,ÊÏÑÉÍÈÏÓ,ÃÅÑÁÊÁÓ,ÃÉÁÍÍÉÔÓÁ,ÌÕÔÉËÇÍÇ,×ÉÏÓ,ÓÁËÁÌÉÍÁ,ÅËÅÕÓÉÍÁ,ÊÅÑÊÕÑÁ,ÐÕÑÃÏÓ,ÌÅÃÁÑÁ" _
        , DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Öýëëï1").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("C6:F6").Select
    Selection.AutoFilter
End Sub

Sub SecondFilter()
'
' SecondFilter ÌáêñïåíôïëÞ
'

'
    Range("C32:F32").Select
    Selection.AutoFilter
    Range("C32").Select
    ActiveWorkbook.Worksheets("Öýëëï1").AutoFilter.Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Öýëëï1").AutoFilter.Sort.SortFields.Add Key:=Range _
        ("C33:C75"), SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
        "ÁÈÇÍÁ,ÈÅÓÓÁËÏÍÉÊÇ,ÐÁÔÑÁ,ÇÑÁÊËÅÉÏ,ËÁÑÉÓÁ,ÂÏËÏÓ,ÉÙÁÍÍÉÍÁ,ÔÑÉÊÁËÁ,×ÁËÊÉÄÁ,ÓÅÑÑÅÓ,ÁËÅÎÁÍÄÑÏÕÐÏËÇ,ÎÁÍÈÇ,ÊÁÔÅÑÉÍÇ,ÁÃÑÉÍÉÏ,ÊÁËÁÌÁÔÁ,ÊÁÂÁËÁ,×ÁÍÉÁ,ËÁÌÉÁ,ÊÏÌÏÔÇÍÇ,ÑÏÄÏÓ,ÄÑÁÌÁ,ÂÅÑÏÉÁ,ÊÏÆÁÍÇ,ÊÁÑÄÉÔÓÁ,ÑÅÈÕÌÍÏ,ÐÔÏËÅÌÁÚÄÁ,ÔÑÉÐÏËÇ,ÊÏÑÉÍÈÏÓ,ÃÅÑÁÊÁÓ,ÃÉÁÍÍÉÔÓÁ,ÌÕÔÉËÇÍÇ,×ÉÏÓ,ÓÁËÁÌÉÍÁ,ÅËÅÕÓÉÍÁ,ÊÅÑÊÕÑÁ,ÐÕÑÃÏÓ,ÌÅÃÁÑÁ" _
        , DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Öýëëï1").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("C32:F32").Select
    Selection.AutoFilter
End Sub