VBA sub som anvender en funktion

Hej

Jeg har nedenstående Sub som i nederste linje skulle trække en Funcion som hedder Public GrupWishSatisfied.
Hvis jeg indtaster formlen =GroupWishSatisfied(N4;O4;$B$4:$B$40) direkte i cellen virker den, men når jeg forsøger at indfører den i Sub får jeg en Run-time error '438', kan i hjælpe mig med hvor fejlen ligger ??

Sub Satisfied()
    Dim k As Integer
    Dim i As Integer
   
    Sheets("Model").Select
    k = Range("N4", Range("N4").End(xlDown)).Count
   
    Sheets("Model").Activate
    For i = 1 To k
    Cells(3 + 1, 16).Formular = "=GroupWishSatisfied($N" & 3 + 1 & ".$O" & 3 + 1 & ".$B$4:$B$" & k + 3 & ")"
Next