Putting value instead of formula itself using VBA code

Hi All,

I have the following code which puts the formula in rows J2 to J5000. What I want to do though is place the calculation result of the formulas in rows J2 to J5000. How can I do that?

Sub pl()

    Sheets("Data").Select
    Range("J2").Select
    ActiveCell.Formula = _
        "=IF(A2="""","""",IF(OR(D2=1,F2=1),999999,ABS((D2*E2)/(F2*G2))))"
       Selection.AutoFill Destination:=Range("J2:J5000"), Type:=xlFillDefault
       
   End Sub

So for eg currently it places in cell J2 =IF(A2="","",IF(OR(D2=1,F2=1),999999,ABS((D2*E2)/(F2*G2)))) which calculates to say 4. I just want it to place value 4 in cell J2 without the formula.

Thanks