Sub alpha()
Range("A6:B15").Sort Key1:=Range("A6"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A4").Select
End Sub
Sub H()
Dim Cel As Range
Range("B6:B15").Copy
Range("C6").PasteSpecial Paste:=xlPasteValues
For Each Cel In Range([C6], [C15])
If Cel.Value = "-" Then Cel.ClearContents
Next
Range("A6:C15").Sort Key1:=Range("C6"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("C6:C15").Delete Shift:=xlToLeft
Range("A4").Select
End Sub
Sub B()
Range("A6:B15").Sort Key1:=Range("B6"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A4").Select
End Sub