请大神帮忙！！！

enrun

新手请指点。需要标记每一行不同间隔列之间数据的最大值和最小值，比如7、14、21、28、35、42列数据的最大值和最小值，8、15、22、29、36、43列数据的最大值和最小值。请问语法有没有可以优化的？
Sub 标记最大值()
Dim a As Integer, i As Integer, arr
For a = 8 To 32
arr = Array(Cells(a, 7), Cells(a, 14), Cells(a, 21), Cells(a, 28), Cells(a, 35), Cells(a, 42))
If Cells(a, 7).Value = Application.WorksheetFunction.Max(arr) Then
Cells(a, 7).Interior.ColorIndex = 3
ElseIf Cells(a, 14).Value = Application.WorksheetFunction.Max(arr) Then
Cells(a, 14).Interior.ColorIndex = 3
ElseIf Cells(a, 21).Value = Application.WorksheetFunction.Max(arr) Then
Cells(a, 21).Interior.ColorIndex = 3
ElseIf Cells(a, 28).Value = Application.WorksheetFunction.Max(arr) Then
Cells(a, 28).Interior.ColorIndex = 3
ElseIf Cells(a, 35).Value = Application.WorksheetFunction.Max(arr) Then
Cells(a, 35).Interior.ColorIndex = 3
ElseIf Cells(a, 42).Value = Application.WorksheetFunction.Max(arr) Then
Cells(a, 42).Interior.ColorIndex = 3
Else
MsgBox "筛选错误"
End If
Next
End Sub