Code for deleting rows if certain criteria apply

[lgerjets]

Is there a code for deleting rows if the row contains certain info? Example: "if row says ***No Data to Report*** in column B then delete that row".

 

[VoG]

Try

Sub DelRows()
Dim LR As lonh, i As Long
LR = Range("B" & Rows.Count).End(xlUp).Row
For i = LR To 1 Step -1
    If Range("B" & i).Value = "***No Data to Report***" Then Rows(i).Delete
Next i
End Sub

 

[VoG]

Typo

Sub DelRows()
Dim LR As Long, i As Long
LR = Range("B" & Rows.Count).End(xlUp).Row
For i = LR To 1 Step -1
    If Range("B" & i).Value = "***No Data to Report***" Then Rows(i).Delete
Next i
End Sub

 

[Alphacsulb]

Sub DeleteTest()

' Another Option to delete rows

With Intersect(Range("B:B"), ActiveSheet.UsedRange) ' Using Row B
    .AutoFilter Field:=1, Criteria1:="***No Data to Report***" 'the cell value to look for
    .Offset(1).EntireRow.delete ' Delete
    .AutoFilter
End With
End Sub

 

[lgerjets]

It worked! Thanks!