Sort ascending and/or descending based of headers

I want to sort headers ascending if they are sorted descending and descending if they are sorted ascending.

At the moment I have the following code:

Sub Sort1()
    Range("B10").CurrentRegion.Sort Key1:=Range("B10"), Order1:=xlAscending, Header:=xlYes
End Sub

How can I do this?