次の目的を達成するためのマクロを作成します：
Excelシート内のインデックス列の値を昇順で並べ替えます。
Sub Index_Sort()

Dim ws As Worksheet
Dim i As Long

Set ws = ActiveSheet

With ws
   For i = 1 To .UsedRange.Rows.Count
    .Range("A1:A" & .UsedRange.Rows.Count).Sort _
    Key1:=.Columns("A"), Order1:=xlAscending, Header:=xlNo
   Next i
End With

End Sub