Delete Entire rows without loop with multiple partial strings criteria

Sub dd()
With Columns(1)
  .AutoFilter 1, "<>string1"
  .SpecialCells(12).EntireRow.Delete
  .Autofilter
End With
End Sub

or not 2 string

Sub Macro1()
      With Columns(1)
       .AutoFilter 1, "<>string1", xlAnd, "<>string2"
       .SpecialCells(12).EntireRow.Delete
       .AutoFilter
      End With
End Sub