Try this:
![]()
Sub DeleteRows() Dim iRow As Long With ActiveSheet For iRow = .Cells(.Rows.Count, "B").End(xlUp).Row To 1 Step -1 If .Cells(iRow, "B").Value2 > 900 / 24 And _ InStr(1, .Cells(iRow, "C").Value, "unknown", vbTextCompare) Then .Rows(iRow).Delete End If Next iRow End With End Sub
Bookmarks