Считать из таблицы, отсортировать, залить ячейки 3х максимальных значений

Private Sub bb3()
Dim a(1 To 15), b(1 To 15) As Integer
Dim i, Min, nmin As Integer
'считываем из таблицы
a(1) = Range("C10").Value
a(2) = Range("D10").Value
a(3) = Range("E10").Value
a(4) = Range("F10").Value
a(5) = Range("G10").Value
a(6) = Range("H10").Value
a(7) = Range("I10").Value
a(8) = Range("J10").Value
a(9) = Range("K10").Value
a(10) = Range("L10").Value
a(11) = Range("M10").Value
a(12) = Range("N10").Value
a(13) = Range("O10").Value
a(14) = Range("P10").Value
a(15) = Range("Q10").Value
'сортировка
For i = 1 To 14
If a(i) > a(i + 1) Then j = a(i) And a(i) = a(i + 1) And a(i + 1) = j Else a(i) = a(i) And a(i + 1) = a(i + 1)
Next i
'вывод в Immediate (для проверки, что отсортировал)
For i = 1 To 15
Debug.Print a(i)
Next i
End Sub

Max = 0
Debug.Print "Ìàêñèìóì"
For i = 1 To 15
If a(i) > Max Then Max = a(i)
Next i
Debug.Print Max
max1 = Max
 
Max = 0
For i = 1 To 15
If (a(i) > Max) And (a(i) < max1) Then Max = a(i)
Next i
Debug.Print Max
max2 = Max
 
Max = 0
For i = 1 To 15
If (a(i) > Max) And (a(i) < max2) Then Max = a(i)
Next i
Debug.Print Max
max3 = Max

'ñòîëáåö Ñ
If Range("C10").Value = max1 Then
 Range("C9:C10").Select
    With Selection.Interior
     .ColorIndex = 3
     .Pattern = xlSolid
    End With
End If
 
If Range("C10").Value = max2 Then
 Range("C9:C10").Select
    With Selection.Interior
     .ColorIndex = 33
     .Pattern = xlSolid
    End With
    End If
If Range("C10").Value = max3 Then
 Range("C9:C10").Select
    With Selection.Interior
     .ColorIndex = 43
     .Pattern = xlSolid
    End With
End If
 
'ñòîëáåö D
If Range("D10").Value = max1 Then
 Range("D9:D10").Select
    With Selection.Interior
     .ColorIndex = 3
     .Pattern = xlSolid
    End With
End If
If Range("D10").Value = max2 Then
 Range("D9:D10").Select
    With Selection.Interior
     .ColorIndex = 33
     .Pattern = xlSolid
    End With
    End If
If Range("D10").Value = max3 Then
 Range("D9:D10").Select
    With Selection.Interior
     .ColorIndex = 43
     .Pattern = xlSolid
    End With
End If
 
'ñòîëáåö E
If Range("E10").Value = max1 Then
 Range("E9:E10").Select
    With Selection.Interior
     .ColorIndex = 3
     .Pattern = xlSolid
    End With
End If
If Range("E10").Value = max2 Then
 Range("E9:E10").Select
    With Selection.Interior
     .ColorIndex = 33
     .Pattern = xlSolid
    End With
    End If
If Range("E10").Value = max3 Then
 Range("E9:E10").Select
    With Selection.Interior
     .ColorIndex = 43
     .Pattern = xlSolid
    End With
End If