求excel vba代码 找出符合某条件的某列中最大值所在的行并标记为黄色

Sub test()
Dim i As Long '循环行号
Dim j As Long '最大值所在行号
Dim k 'E列单元格最大值
k = ""
j = 0
For i = 1 To [K65536].End(3).Row
If Cells(i, "K") = 5 Then
If Cells(i, "E").Value >= k Then
k = Cells(i, "E").Value
j = i
End If
Next i
Range("c" & i).Interior.ColorIndex = 6
End Sub

Sub ww()
For i = 1 To [e65536].End(3).Row
If [k1] = 5 Then
n = Application.Max(Range("e:e"))
If Cells(i, "e") = n Then
Range("c" & i).Interior.ColorIndex = 6
End If
End If
Next
End Sub