Option Explicit
Sub a_b_1()
Range("h12", Range("h" & Rows.Count).End(xlUp)).Sort Range("h12"), xlAscending, Header:=xlNo
End Sub
Sub b_a_1()
Range("h12", Range("h" & Rows.Count).End(xlUp)).Sort Range("h12"), xlDescending, Header:=xlNo
End Sub
Sub a_b_2()
Range("h1", Range("h" & Rows.Count).End(xlUp)).Sort Range("h1"), xlAscending, Header:=xlNo
End Sub
Sub b_a_2()
Range("h1", Range("h" & Rows.Count).End(xlUp)).Sort Range("h1"), xlDescending, Header:=xlNo
End Sub