Macro not responding to cell deletion

I have a code (thanks royUK and Leath!) where, if column E is "Annuity", you can type a value in column J and it runs a formula to calculate a value for column K. If E is not "Annuity" it clears the contents of J (which should clear K). What's not working is when column J gets cleared or manually deleted, column K must be blank. The worksheet_change event is not working for deletion of column J. Thanks!

Private Sub Worksheet_Change(ByVal Target As Range)
Const pw As String = "blondie"
Dim Rng As Range, c As Range, Rng2 As Range, Rng3 As Range, i As Long, lastrow As Long
Set Rng = Range("E17:E116")
Set Rng2 = Range("J17:J116")
Set Rng3 = Range("K17:K116")
With Sheets("NML Inventory")
.Unprotect pw
If Not Intersect(Target, Rng2) Is Nothing Then
    lastrow = Range("J65536").End(xlUp).Row
        For i = 17 To lastrow
        If .Cells(i, 10) = 0 Or IsEmpty(.Cells(i, 10)) Or .Cells(i, 5) <> "Annuity" Then
        Cells(i, 11).ClearContents
        Else: Cells(i, 11) = Sheets("INPUT").Cells(28, 13) * Sheets("NML Inventory").Cells(i, 10)
        End If
    Next
Else
    If Not Intersect(Target, Rng) Is Nothing Then
        For Each c In Rng
            Select Case c.Value
                Case "Annuity"
                    c.Offset(0, 3).ClearContents
                    c.Offset(0, 4).ClearContents
                Case "DI", "LTC"
                    c.Offset(0, 3).ClearContents
                    c.Offset(0, 5).ClearContents
                Case Else
                    c.Offset(0, 5).ClearContents
            End Select
        Next c
        .Protect pw, AllowSorting:=True, AllowFiltering:=True
    End If
End If
End With
End Sub

I don't think that deleting a cell's value will trigger the event. maybe if you try the Calculate event

So do you suggest taking out the following part of the worksheet_change event and doing this instead?

Private Sub Worksheet_Calculate(ByVal Target As Range)
Dim Rng2 As Range
Set Rng2 = Range("J17:J116")
If Not Intersect(Target, Rng2) Is Nothing Then
    lastrow = Range("J65536").End(xlUp).Row
        For i = 17 To lastrow
        If .Cells(i, 10) = 0 Or IsEmpty(.Cells(i, 10)) Or .Cells(i, 5) <> "Annuity" Then
        Cells(i, 11).ClearContents
        Else: Cells(i, 11) = Sheets("INPUT").Cells(28, 13) * Sheets("NML Inventory").Cells(i, 10)
        End If
    Next
End If
End Sub

Yeah it's not working for me. I don't know the proper syntax with this type of event. Here's what it's telling me.

Compile Error: Prodecure declaration does not match description of event or procedure having the same name.

Any ideas?

Attach an example workbook

Here you go! Column K is not responding when column J gets deleted. It should trigger, since it's the worksheet_change event....