VBA

Hej igen.
jeg har denne VBA-kode, som Jeg er blevet hjulpet til af jer, eksperter, og tak for det.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("J:K")) Is Nothing Then
Target.Offset(0, 2) = Now()
Target.Offset(0, 4) = Target.Offset(0, 4) + 1
End If
End Sub

Nu vil jeg meget gerne have denne formel: =-J2+K2 konverteret til VBA sammen med VBA-koden, så jeg er fri for formlen.
Formlen står i celle i2.
Vil I hjælpe mig med det, da jeg er helt blank på VBA.
PFT.