Code not starting onthe correct row

[gheyman]

I need this to delete every row where there is not a "B" in column 9 (Column i) Starting in Row 5 down

Sub DeleteIfNotB()
'Delete Rows that dont have a B in the Type column

Dim LR As Long, j As Long
LR = Range("C" & Rows.Count).End(xlUp).Row
For j = LR To 1 Step -1
    If Range("i" & j).Value <> "B" Then Rows(j).Delete
Next j


ActiveSheet.Name = "PBOM"

End Sub

 

[Joe4]

The code loops through the rows backwards, starting at the last row. You are telling it stop at row 1 instead of row 5.
Change it like this:

For j = LR To [COLOR=#ff0000][B]5[/B][/COLOR] Step -1

 

[gheyman]

I would have sworn I tired that already. That worked. Thanks Joe

 

[Joe4]

You are welcome.