çift sütuna göre sıralama

[Gold_Savt]

Birinci sütunda bölgeler var, ikinci sütunda ise bu bölgelere ait şehirler var.
Sıralama makrosu bölgeleri sıraladıktan sonra şehirleri bölgelere göre sıralayabilir mi?
Teşekkür ederim.

 

[veyselemre]

Private Sub CommandButton1_Click()

    With Sheets("Sayfa1")
        .Range("D5:O" & .Cells(Rows.Count, 4).End(3).Row).Sort .Range("D6"), , .Range("E6"), , , , , xlYes
    End With

End Sub

 

[Gold_Savt]

Teşekkür ederim. Çok hızlı bir cevap oldu.