Sub Macro1()
[B1:B4].FormulaR1C1 = "=SEARCH("" "",RC1)"
[C1:C4].FormulaR1C1 = "=LEFT(RC1,RC2-1)"
[D1:D4].FormulaR1C1 = "=MID(RC1,RC2,10)+0"
[A1:D4].Sort Key1:=[C1], Order1:=xlAscending, Key2:=[D1], Order2:=xlAscending, _
Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal, DataOption2:=xlSortNormal
[B1:D4].ClearContents
End Sub