Delete Entire rows without loop with multiple partial strings criteria

or you can do using replace ,manipule data example in columns(1) you have formula than you can replace string1 become error

Sub test()
[b1:b2] = Array("xx", "yy")
With Columns(1)
  .Replace "string1", "=b1*b2"
  .SpecialCells(xlCellTypeFormulas, xlErrors).Delete
End With
End Sub