Delete Cells If Does Not Equal Criteria

[Bench]

Hi,

Am writing a Sub that will delete all rows that do not contain 1 in Column B.

So far i have

Sub Macro14()
    
Dim ws As Worksheet
Set ws = ActiveSheet
For i = ws.Range("B5").End(xlDown).End(xlUp).Row To 1 Step -1
    If ws.Cells(i, 2) <> "1" Then
    ws.Rows(i).Delete
        End If
    Next
End Sub

Unfortunatley this deletes the "Total Row" and the "Headings"

Ideally i'd like to set the range first as this changes each time but not sure how to do this.

The code for the range that the For Next should run on is.

Range("B5", Range("A5").End(xlDown).Offset(-1, 1)).Select

Where do i go from here.

Thanks as always for all your help.

 

[Datsmart]

If your Total Row is the last row and your Heading is in Row 1, this should do it:

For i = ws.Range("B5").End(xlDown).End(xlUp).Row - 1 To 2 Step -1

 

[Bench]

If your Total Row is the last row and your Heading is in Row 1, this should do it:

For i = ws.Range("B5").End(xlDown).End(xlUp).Row - 1 To 2 Step -1

Thanks

Tried it without any luck, My Header is A4:C4 and the Total Row will vary.

The column that is being checked is Column B if that helps?