Sum af udvalgte celler

Jeg har et problem med at få den sidste del af koden til og virke er der nogen som kan hjælpe mig med at fortælle mig hvad jeg gør forkert
Private Sub Worksheet_Change(ByVal Target As Range)
            Dim R As Long, I As Long, L As Long, myLastCell As String, myFirstCell As String

    If Target.Column = 2 Then

        If Target.Value >= 1 And Range("B" + CStr(Target.Row)) < 99 Then
       
           
            Range("C" + CStr(Target.Row)) = Now
            If Target.Value = 1 Then
            Range("J" + CStr(Target.Row)) = Range("M3").Value
       
        R = -1
        I = -2
        myFirstCell = Range("K" + CStr(Target.Row)).Offset(-1, 0).Address
       
        Do While Range("K" + CStr(Target.Row)).Offset(R, 0).Value = Range("K" + CStr(Target.Row)).Offset(I, 0).Value 'And Range("J" + CStr(Target.Row)).Value - 1 = Range("N3").Value Then
        R = R - 1
        I = I - 1
        Loop
        L = I - 1
       
        myLastCell = Range("K" + CStr(Target.Row)).Offset(L, 0).Address
        Range("I" + (Target.Row)).FormulaFormulaR1C1 = "=sum(myFirstCell" & ":myLastCell" & ")"


Fra efter LOOP  går det galt for mig.
Det som jeg gerne ville opnå med koden var at den kunne udvælge celler ud fra værdier i kolone K og lægge de tilhørende rækker sammen i kolone I
Er lavet office 2003 exell

Med venlig hilsen Jørn