Hiding rows depending on data

Greetings to all and thank you in advance for your help. I have a macro that runs a couple of procedures. The first procedure looks at the data in column 73 and hides certain rows depending on whether 0 is present. This macro works. However, I cannot get the second macro to work. After hiding the rows that show no data, I wanted to hide only certain rows if the range "SPINTOTAL" (which is the same as column 73) shows data other than 0
I thought maybe a "DoWhile loop" would work, but I cannot seem to get the right code. Any suggestion would be greatly appreciated. Thank you
Sub hiderow()

Dim x As Integer

Application.ScreenUpdating = True

Calculate
For x = 9 To 107

If Cells(x, 73) = "0" Then
Rows(x - 6).Hidden = True
Rows(x - 5).Hidden = True
Rows(x - 4).Hidden = True
Rows(x - 3).Hidden = True
Rows(x - 2).Hidden = True
Rows(x - 1).Hidden = True
Rows(x).Hidden = True

End If
x = x + 0
Next x
'Call hiderowwithnumber

Application.ScreenUpdating = True

End Sub


Public Sub hiderowwithnumber()
Dim SPINTOTAL As Variant
Application.ScreenUpdating = True

For Each cell In Sheets("1").Range("SPINTOTAL")
Do While (cell, 73)<> "0"
Rows(x - 6).Hidden = True
Rows(x - 5).Hidden = True
Rows(x - 3).Hidden = True
Rows(x - 2).Hidden = True
Rows(x).Hidden = False
Loop
Next cell
Application.ScreenUpdating = True

End Sub

Hello starryknight,

Thank you for the suggestion. I thought about cleaning the code with an "if..else" statment. The only thing that stopped me was that I thought that the statement would only give me an either/or option to run the procedures when I would like to run both procedures. I would like to hide all the rows that show a total of 0 on column 73 as well as only certain rows for the group of cells that have a total different from 0 on column 73. Does this make sense?
Thank you nonetheless for taking the time to look at my code and making improvements to it.

Starryknight,

You are correct in your interpretation. I neglected to add that the macro where is the data shows "0" and the 6 rows are hidden, only goes to row 107.
However, when this happens I am left with the data that does not show "0" in column 73. These are the rows that I want to modify next. I only need to hide some of the rows for this group of data.
Again, with my very limited knowledge of VB, I thought maybe running a "dowhile...."loop would do the trick. But, if you can think of a better solution, it would be an opportunity for me to learn.

Thank you so much

Hello Starryknight,

Thank you for the code. I tried it and it seems to hide all the rows except for the last. I am trying to figure out why this might be. I am thinking of maybe pointing one of the procedures in the loop to look at the totals in column 73 and the other to look at column 74, that way, each procedure will be triggered by diffirent circumnstances. What do you think about this?