Sub Hidezeros()
Dim rRange As Range
For Each rRange In Range("A17", Range("A41").End(xlUp))
rRange.EntireRow.Hidden = _
(rRange = 0 And Len(rRange) = 1)
Next rRange
End Sub

I have a macro I found for hiding any rows where a zero is in column A for
the range of A17 to A41.

It is a simple quote sheet and if nothing is entered in the qty field then
those rows shoul dhide only not delete when a button is pushed on sheet

Also how would I say ranf A17 -to A25 & A27 to 31 - tow disconnected ranges.

thank you for your help and time on this.