A       B       C         D        E
 199 . 63 	 177 . 312 	 206 . 2632    184 . 59    188 . 365   

 100 . 32 	 88 . 8864 	 103 . 0224    102 . 58    102 . 816 

 87 . 45    Null    91 . 4784     84 . 65     87 . 678 

Null    Null     Null      Null    Null


 82 . 43 	          85 . 5234     78 . 30    89 . 61 

 87 . 45    Null    91 . 4784     84 . 65     87 . 678 

 84 . 65    87 . 45     87 . 678     91 . 4784 

Option Base  1 
Private Sub PArraySort()
Dim MyArray( 1  To  5 )

Application.ScreenUpdating = False
For i =  1  To ActiveCell.SpecialCells(xlLastCell).Row
     For j =  1  To  5 
       MyArray(j) = Cells(i, j).Value
     Next j
       Call MyArraySort(MyArray)
     For k =  1  To  5 
        Cells(i, k +  6 ).Value = MyArray(k)
     Next k
Next i
 Application.ScreenUpdating = True
End Sub

Function MyArraySort(List())
'Функция сортировки массива
     Dim First As Integer, Last As Integer
     Dim i As Integer, j As Integer
     
  First = LBound(List): Last = UBound(List)

For i = First To Last
     For j = i +  1  To Last
       If List(i) > List(j) Then
          Temp = List(j)
          List(j) = List(i)
          List(i) = Temp
       End If
     Next j
Next i
End Function