Unknown error in my macro

I am running a macro to hide all rows that have a value of "0" and print the rest. So it does just that very well however it hides the last row and I can't figure out why. So for example I have 10 rows with data, only 9 rows print. Please help because I can't figure it out.

Sub Button2_Click()

Sheet4.Unprotect Password:="1"

Dim rw As Long
Dim rng As Range
Dim cell As Range


Application.ScreenUpdating = False

Set rng = Sheets("Test Reg UC").Range("b11:b63")
With rng.Columns(1)
For Each cell In rng
If Application.WorksheetFunction.CountA( _
.Parent.Cells(cell.Row, 1).Range("b2")) = 0 Then _
.Parent.Rows(cell.Row).Hidden = True
Next cell
.Parent.PrintOut
.EntireRow.Hidden = False
End With
Application.ScreenUpdating = True

Sheet4.Protect Password:="1"

End Sub

Any additional questions I would be more then happy to clarify anything.

Hi,

Try changing
Set rng = Sheets("Test Reg UC").Range("b11:b63") to
Set rng = Sheets("Test Reg UC").Range("b11:b64")

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code in [CODE] [/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

Since you're new here I'll change it for you on this occasion but please note for the future.

Do you mean that you have 10 cells all with no zero values in column B between rows 11:63 inclusive?
Can I suggest that rather than use a looping macro to evaluate cells since loops are inherently slow, particularly with large data sets, that you use a Data Filter with a criteria range containing zero to hide the relevant rows. Data filtering is the fastest way I know to do this sort of stuff and is both quicker and easier to code since it needs just one line of code.

Hi,

As I said. By far the best approach is to use a Data Filter. I'd be inclined to create a helper column which clearly identifies by using a standard Excel function or combination of functions, which rows should be hidden. My usual technique is to have the result of the helper column formuale be either "Hide" or "Show". Then it's a simple one line piece of macro code, along the lines of

 Range("A1:A100").AutoFilter Field:=1, Criteria1:="Show"

which will display just the rows with the word "Show" in the A1:A100 range. Obviously change the A1:A100 to reflect your helper column range.