per VBA Formel einsetzen

ich möchte in Spalte K ab K2 bis zum variablen Ende eines benannten Bereiches folgende Formel einsetzen:

in K2: =DATWERT(TAG(P2)&"."&MONAT(P2)&"."&JAHR(HEUTE()))
in K3: =DATWERT(TAG(P3)&"."&MONAT(P3)&"."&JAHR(HEUTE()))
in K4: =DATWERT(TAG(P4)&"."&MONAT(P4)&"."&JAHR(HEUTE()))
usw.

... und ich hab keine Ahnung wie ich da ansetzen soll. Könnt Ihr mir da bitte helfen?

Vielen Dank im Voraus

Gruß
Franz