Sub deleteRow()
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
Application.ScreenUpdating = False

'declare variables
Dim deleteRow As Long
Dim ws As Worksheet

'set objects
Set ws = ActiveSheet

For deleteRow = ws.Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1

If ws.Range("A" & deleteRow).Value = "Not Implemented" Then
Rows(deleteRow).EntireRow.Delete
End If

Next deleteRow

Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
Application.ScreenUpdating = True