Удаление строк на основе значения ячейки

Question

Я новичок в макросах и надеюсь удалить строки, содержащие текст «Не применимо» в столбце D. Я приложил свой код ниже. При компиляции я получаю ошибку «Ошибка приложения или объекта». Пожалуйста, дайте мне знать, что это правильный путь. Первая часть кода - это функция фильтрации, которая работала нормально. Я добавляю эту строку и удаляю часть, когда появляется ошибка.

 Sub Advanced_Filtering()
    If Worksheets("Engagement Sheet").Range("B2") = 2 Then
    Range("C2") = Null
    ElseIf Worksheets("Engagement Sheet").Range("B2") = 1 Then
    Range("C2") = 1
    End If
    Range("A7:G1500").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("A1:G2"), CopyToRange:=Sheets("Sheet3").Range("L1:R1")


BeginRow = 5
    EndRow = 120
    ChkCol = 4
    For Rowcnt = EndRow To BeginRow Step -1
        If ThisWorkbook.ActiveSheet.Cells(Rowcnt, ChkCol).Value = "Not Applicable" Then
           ThisWorkbook.ActiveSheet.Cells(Rowcnt, ChkCol).EntireRow.Delete

        End If
    Next Rowcnt

ActiveSheet.Copy

End Sub