Satırı makro ile küçükten büyüğe sıralama

[ynmcan]

Hayırlı geceler arkadaşlar ;
Aşağıda görülen kod ile "G" sutunundaki değerlere göre büyükten küçüğe satırları sıralıyorum.
Benim yapmak istediğim ise bunun küçükten büyüğe sıralaması. Bunu yapmam için bu koda kırmızı ile belirlediğim bölümde ne gibi bir değişikik yapmam gerekiyo ? Yardımcı olursanız sevinirim.
Örnek dosyam ekte.

Application.ScreenUpdating = False

    sat = Sheets("Sayfa1").Range("g65536").End(3).Row + 1
    Range("A8" & ":G" & sat - 1).Select
    
   [COLOR="Red"] Selection.Sort Key1:=Range("G8"), Order1:=xlDescending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal[/COLOR]        
 Application.ScreenUpdating = True

 

[ynmcan]

Yapılacak değişikiği buldum.
Kırmızı ile belirtilen yerler değişiyor.
Büyükten küçüğe sıralamak için:

 Selection.Sort Key1:=Range("G8"), Order1:=[COLOR="Red"]xlDescending[/COLOR], Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal

Küçükten büyüğe sıralamak için:

Selection.Sort Key1:=Range("G8"), Order1:=[COLOR="red"]xlAscending[/COLOR], Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal

Hayırlı geceler.

 

[yerbakili]

Teşekkür ederim. Kodlarınız ile tablomu güncelledim.