Deleting a cell if the cell below contains a specific text

[chenmoti]

I'm wondering if it's possible to delete a cell if the cell below it contains a specific text.

For example, In cell A1 the value is Mark, cell A2 is James and cell A3 is ABC. The program will now delete James because the cell below contains ABC.

How do you do it in VBA?

Thanks in advance!

 

[chenmoti]

What if it's consecutive? Like A2, A3, A4 consists of ABC? It doesn't delete all of those

 

[bebo021999]

Not delete cell with "ABC"?

If cells(i,1).value = "ABC" and cells(i-1,1).value <> "ABC" then  cell(i-1,1).clearcontents