This is faster if it works with your numbers.

Sub InOrder()

        Dim NumArray() As Double
        Dim NumRows  As Integer
        Dim NumCells As Integer
        Dim x As Integer
        Dim y As Integer
        Dim z As Integer

        With Range("A1:E35")
                NumRows = .Rows.Count
                NumCells = .Cells.Count

                ReDim NumArray(1 To NumCells)

                For x = 1 To NumCells
                        NumArray(x) = .Cells(x)
                Next x
        End With
        Do
                y = y + 1
                For x = 1 To NumRows
                        z = z + 1
                        Do While Application.Small(NumArray(), z) = 0
                                z = z + 1
                        Loop
                        Cells(x, y) = Application.Small(NumArray(), z)
                        If z = NumCells Then Exit For
                Next x
        Loop While z < NumCells
End Sub