Macro to Hide Zero Total Rows Runs VERY Slow

The attached pricing worksheet has with 14 sections and a total of 903 rows. I use a macro to hide sections with a zero total and that works fine. To reduce the number of printed pages, I also need to hide individual zero total rows within the sections that do not have a zero total.

I created a macro to do that, but it runs very slowly. I suspect that it is due to my amateurish VBA coding.

Any help would be appreciated. Thanks.

So simple and worked great. The execution time dropped from 20+ seconds to about 1 second. Thank you so much!!!

You know, there is something weird about this. When I open the file and run the macro, it runs quickly (~1 second). If I unhide the rows and run it again, it goes back to ~20 second run time. Maybe an Excel issue??? Thanks.

After further checking, the slow running does not occur simply by hiding and unhiding. I can do that over and over without a slowdown.

The slow running only occurs after printing the worksheet with the rows hidden (either with a macro or manually [file > print...]), unhiding, and then re-running the Hide macro. I've attached the file, in case you want to see.

I can live with it as is. Thank you so much.