Поиск и выделение цветом четырех наибольших значений Excel

Sub NaibolshieZnachenia()
    Dim rw As Long
    Dim max1 As Double, max2 As Double, max3 As Double, max4 As Double
    Dim i As Long
    rw = Cells(Rows.CountLarge, 3).End(xlUp).Row
    max1 = Application.Large(Range("C1:C" & rw), 1)
    max2 = Application.Large(Range("C1:C" & rw), 2)
    max3 = Application.Large(Range("C1:C" & rw), 3)
    max4 = Application.Large(Range("C1:C" & rw), 4)
    For i = 1 To rw
        If Cells(i, 3) = max1 Or Cells(i, 3) = max2 Or Cells(i, 3) = max3 Or Cells(i, 3) = max4 Then
            Rows(i).Interior.Color = vbYellow
        End If
    Next i
End Sub

Range(Cells(i, 1), Cells(i, 3)).Interior.Color = vbYellow

Private Sub Test()
    Dim r As Range, a, i&, l_f, l_e
    Set r = Range("A1", Cells(Rows.Count, "A").End(xlUp))
    a = r.Offset(, 2).Value
    l_f = Application.Large(a, 1)
    l_e = Application.Large(a, 4)
    
    Application.ScreenUpdating = False
    r.Resize(, 3).Interior.ColorIndex = xlNone
    For i = 1 To UBound(a)
        Select Case a(i, 1)
            Case l_e To l_f
               r(i).Resize(, 3).Interior.ColorIndex = 6
        End Select
    Next
    Application.ScreenUpdating = True
End Sub

Sub NaibolshieZnachenia()
    Dim rw As Long
    Dim max1 As Double, max4 As Double, Sum As Double
    Dim i As Long
    rw = Cells(Rows.CountLarge, 3).End(xlUp).Row
    max1 = Application.Large(Range("C1:C" & rw), 1)
    max4 = Application.Large(Range("C1:C" & rw), 4)
    For i = 1 To rw
        If Cells(i, 3) <= max1 And Cells(i, 3) >= max4 Then
            Range(Cells(i, 1), Cells(i, 3)).Interior.Color = vbYellow
            Sum = Sum + Cells(i, 3)
        End If
    Next i
    MsgBox Sum
End Sub