Delete multiple rows of data based on criteria in a single cell

Try this code once a testfile.

Sub tst()
   Dim i As Integer, cl As Variant
    For i = Cells(Rows.Count, 3).End(xlUp).Row To 1 Step -1
      For Each cl In Range(Cells(2, 3), Cells(Cells(Rows.Count, 3).End(xlUp).Row, 3))
    If cl = "do not call" Then
        cl.Offset(-1).Resize(4).EntireRow.Delete
     End If
    Next cl
  Next i
End Sub