>>370
ABCと123はタテヨコ逆だよね？
ようするにB列の番号順にソートすればいいんじゃないの？

Sub Macro1()
　　Worksheets("Sheet2").Select
　　With ActiveSheet.Sort
　　　　.SetRange Range("A:C")
　　　　.SortFields.Add Key:=Range("B:B")
　　　　.Header = xlYes
　　　　.Apply
　　End With
End Sub