Add formula thru VBA

Maybe:

Sub rizmominA()
Dim i As Long
i = Range("B112").Value
Range("F" & i).Value = Range("F" & i).Value
Range("F" & i).NumberFormat = "0.00"
Range("F" & i + 1).Formula = "=IF($A" & i & "=$K$40,$L$19,0)"
End Sub