Delete rows macro

[outlook]

Hi,

I need a macro to delete all rows (entire row) that contains "-" in column U from row 8.

Is this possible? If so, can someone suggest the code to use?

Thank you.

 

[VoG]

Try

Sub delrows()
Dim LR As Long, i As Long
LR = Range("U" & Rows.Count).End(xlUp).Row
For i = LR To 8 Step -1
    If Range("U" & i).Value = "-" Then Rows(i).Delete
Next i
End Sub

 

[outlook]

It works!

Thank you so much.