How to delete rows with selected text?

[Unicode]

Every other cell on column "B" has the following letters, "LLC". My vba script should clear all "LLC" and horizontally delete entire ROW. However I keep getting a compile error, is this due to the reason that I have not selected a range?
The code I have already used:



Sub deleteRowswithSelectedText()
For Each Cell In Selection
If Cell.Value = "Bad Row" Then
Rows(Cell.Row).ClearContents
End If
Next
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.EntireRow.Delete
End Sub

 

[Unicode]

I propose the following code, with the ability to set range from A2:L300, delete an array of words. Perhaps, my theory is not easy to comprehend.



Sub DeleteMatchingCriteria()
Application.ScreenUpdating = False
Dim toDelete As Variant

' set the words to delete
toDelete = Array("As of 1/31/2019", "CA", "Unit")


Dim colD As Range
Set col = Sheet2.Range("A1:L" & Sheet2.Range("L" & Rows.Count).End(xlUp).Row)


With col
.AutoFilter Field:=1, Criteria1:=toDelete, Operator:=xlFilterValues
.Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Delete
End With


Sheet2.AutoFilterMode = False
End Sub

There probably is but I have no list of words and no description that I can work out exactly what you want doing, just a table with no description on what is to be deleted or what not.

If you said I want the rows deleted where this specific list of words appear in these specific columns I might have some idea but now are are talking as if there are different things to do on different pages and I don't really want to take 15 posts to try and work it out.

 

[MARK858]

Sub DelAL()
  Dim myVar As Variant, DelMe As Variant
  Application.ScreenUpdating = False
  
  DelMe = Array("As of 1/31/2019", "CA", "Unit")
  
  For Each myVar In DelMe
    Sheet2.Columns("A:L").Replace "*" & myVar & "*", "#N/A", xlWhole, , True, False, False
  Next
  
  On Error Resume Next
  Sheet2.Columns("A:L").SpecialCells(xlConstants, xlErrors).EntireRow.Delete
  On Error GoTo 0
  
  Application.ScreenUpdating = True
End Sub