Fonction ou macro en VBA max if

Bonjour,

je suis débutant sur vba et je souhaiterais créer une fonction ou macro qui me récupère le max d'une plage avec un critère donné .Je sais le faire en Excel et je souhaiterais le faire en VBA:
value1 value2 résultat souhaité
marc 5 5
marc 2 5
marc 4 5
jo 6 6
jo 2 6
elise 8 9
elise 9 9

j'ai essayé de le faire mais ça ne marche pas.
aussi ,je ne sais jamais s'il vaut mieux utiliser une fonction ou un sub ?

j'ai nommé ma feuille"test" et voici mon code :
Function maxif(r As Range)
Dim i As Integer

For i = 2 To ubound(r)

If Sheets("test").cells(i + 1, 1).Value = Sheets("test").celles(i, 1).Value Then


If Sheets("test").cells(i + 1, 1).Value > Sheets("test").cells(i, 1).Value Then

maxif= Sheets("test").cells(i + 1, 1).Value
End If
End If
Next

End Function


si vous avez un autre code à proposer ou des conseils ,je vous en remercie d'avance.