Of met een UDF (plaats deze achter een nieuwe module (insert --> module)
Function jec(rng As Range, xStr As String) As String
Dim it
Application.Volatile
For Each it In rng
If it = xStr And it.Offset(, 1) > jec Then jec = it.Offset(, 1)
Next
End Function
Daarna te gebruiken als
=jec(A1:A16;I5)