LastRow = Cells(Rows.Count, "AJ").End(xlUp).Row
For i = LastRow To 1 Step -1
If Cells(i, "AJ").Value = "1" Then

Cells(i, 1).Range("B1").ClearContents

End If
Next


The above will clear content only, what change is needed to delete the
entire row.

Pat