Add formula thru VBA

Hello:

I am using below VBA code successfully.

Sub CurrentMonth_CopyPaste_Sales()

Dim i As Long
i = Range("B112").Value
Range("F" & i).Copy
Range("F" & i).PasteSpecial xlPasteValues
'NumberFormat = "0.00"
    
End Sub

I want to add the formula in the next row : =IF($Ax=$K$40,$L$19,0)
where x in $Ax would be 1 + the value in cell B112
Example if Cell value in B112 = 50, then the formula would be =IF($A51=$K$40,$L$19,0)

I hope this is clear and let me know if you have any questions.

Thanks

Riz