issues about deleting zero rows

Hi,

I need vba code to delete those entire rows with column F equal to zero. First I want to delete those rows that have zero in column F in "Section 1" (Rows 5 to Row 21), and then get the total in row "Section 1 Sub-total" after deleting. And then do the same thing for section 2 and section 3. I've developed code for deleting, but it works fine until row 11. I use debug.print to show the results I get for each run. Here are my results. The range has total 17 rows, so it gets 17 0, 16 0, 15, 0.....When it runs to row 15 (row 11 in my defined range), I get the result 11 175. This is the result based on entire sheet, not my defined range. Can anyone help on this? I've attached my file.

17
0
16
0
15
0
14
0
13
0
12
0
11
175
10
165

Sub MPS_delete()

    ActiveSheet.Columns(6).Find(what:="Flat Fee", LookIn:=xlValues).Offset(2, 0).Select
    Set Rng = Range(ActiveCell, ActiveCell.End(xlDown))

    For j = Rng.Rows.Count To 1 Step -1
        Debug.Print j
        Debug.Print Cells(j, "F").Value
        If Cells(j, "F") = 0 Then
            Rows(j).Delete
        End If

    Next

End Sub