Excel VBA sortiranje vrstic

    Sorted.Add Array(1, 10)
    Sorted.Add Array(2, 2)
    Sorted.Add Array(3, 4)
    Sorted.Add Array(4, 3)
    Sorted.Add Array(5, 5)
    Sorted.Add Array(6, 6)
    Sorted.Add Array(7, 1)
    Sorted.Add Array(8, 7)
    Sorted.Add Array(9, 8)
    Sorted.Add Array(10, 9)
    For i = 1 To Sorted.Count
        TableData.Rows(i).Columns(2).Value2 = i
    Next
    Call RecurSort(TableData, Sorted)

Private Sub RecurSort(ByRef TableData As Range, ByVal Sorted As collection)
    Dim temp1 As Variant
    For i = 1 To Sorted.Count
        For j = 1 To Sorted.Count
            If i = Sorted(j)(0) Then
                temp1 = Sorted(j)
                If temp1(1) = Sorted.Count Then
                    Sorted.Add item:=temp1
                    If j <> temp1(1) Then
                        TableData.Rows(j).Cut
                        TableData.Rows(temp1(1) + 1).Insert shift:=xlDown
                    End If
                Else
                    Sorted.Add item:=temp1, before:=temp1(1)
                    If j <> temp1(1) Then
                        TableData.Rows(j).Cut
                        TableData.Rows(temp1(1)).Insert shift:=xlDown
                    End If
                End If
                Sorted.Remove j + IIf(temp1(1) < j, 1, 0)
                Exit For
            End If
        Next
    Next
End Sub