Sub Test()
Range("A2").Sort Key1:=Range("A2"), Order1:=xlDescending, Header:=xlYes
Var1 = Application.Match(0, Columns(1), 0)
If Not IsError(Var1) Then Range("A2").CurrentRegion.Resize(Var1 - 1).Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlYes
End Sub