VBA Update a sub set of records

[Al Del]

I am using the following macro to place a "w" in column M (9) of the target record of a worksheet when colmun D gets the entry "Filled".

    Dim lastrow As Integer
    lastrow = Range("D" & Rows.Count).End(xlUp).row
    
    'If Status is "Filled" place a "w" in Results
    'Range("D2:D" & lastrow) Is the Target it defines the column D as the target area
    If Not Intersect(Target, Range("D2:D" & lastrow)) Is Nothing Then
        If Target <> "Filled" Then
            Target.Offset(, 9) = vbNullString
            Else: Target.Offset(, 9) = "w"
        End If
     End If

I would like to enter a "w" into col M of all records, that have the same entry in column K of the target row of the list, when anyone of these records gets the entry "Filled" put in col D of one of these records.

 

[Al Del]

I've been trying to debug this code, same code as above, it turns out it doesn't seem to be the code, but the code is not being triggered when I change column D. I put a stop at the beginning of the procedure and it never gets triggered. The code is in Sheet19, any ideas on what the problem might be?

Private Sub Worksheet_Change(ByVal Target As Range)

Stop
If Target.Cells.Count <> 1 Then Exit Sub
Application.EnableEvents = False

    If Not Intersect(Target, Range("D:D")) Is Nothing Then

        If LCase(Target.Value) = "filled" Then
            Range("K:K").AutoFilter 1, Target.Offset(, 7).Value
            Range("K2", Cells(Rows.Count, "K").End(xlUp)).Offset(, 2).SpecialCells(xlCellTypeVisible).Value = "w"
            AutoFilterMode = False
        End If
    End If
Application.EnableEvents = True
End Sub