Sub test() Dim arr()Dim i, j As Integer
j = Range("A65536").End(xlUp).Row - 1
ReDim arr(1 To j)
For i = 1 To j
arr(i) = Range("D"&i+1)+Range("E"&i+1)+Range("F"&i+1)
Next
Range("I3")=Application.WorksheetFunction.Max(arr)Range("I2")=Range("C"&Application.WorksheetFunction.Match(Range("I3"),arr,0)+1)
End Sub