Deleting rows based on certain text/data in a column

[excelisnotmyforte]

Hi gurus,

I would like to delete rows that contain the text "Off" in column C (under SSG). Is there a way to do this without macros?

[TABLE="class: grid, width: 500"]
<tbody>[TR]
[TD]Time[/TD]
[TD]Engine[/TD]
[TD]SSG[/TD]
[TD]Hatch[/TD]
[TD]RPM[/TD]
[/TR]
[TR]
[TD]0700[/TD]
[TD]Off[/TD]
[TD]On[/TD]
[TD]Open[/TD]
[TD]0[/TD]
[/TR]
[TR]
[TD]0800[/TD]
[TD]On[/TD]
[TD]Off[/TD]
[TD]Open[/TD]
[TD]1200[/TD]
[/TR]
[TR]
[TD]0900[/TD]
[TD]On[/TD]
[TD]On[/TD]
[TD]Closed[/TD]
[TD]1600[/TD]
[/TR]
[TR]
[TD]1000[/TD]
[TD]On[/TD]
[TD]On[/TD]
[TD]Closed [/TD]
[TD]1600[/TD]
[/TR]
[TR]
[TD]1100[/TD]
[TD]On[/TD]
[TD]Off[/TD]
[TD]Closed[/TD]
[TD]1200[/TD]
[/TR]
</tbody>[/TABLE]

Thank you in advanced!

 

[gallen]

Helo, untested but straight forward.

Test on a COPY of your data as this deletes information

Sub DeleteRows()
    Dim fr As Long, lr As Long, l As Long ' first row, last row, counter
    
    'first row no.
    fr = 2 'change as necessary
    
    'last row no.
    lr = Range("C" & Rows.Count).End(xlUp).Row
    
    'loop up as we are deleteing
    For l = lr To fr Step -1
        If Trim(Range("C" & l)) = "Off" Then Rows(l).Delete
    Next l
    
End Sub