[code=vb]
Private Sub CommandButton6_Click()
Dim xrg As Range, xcell As Range, n&
Application.ScreenUpdating = False
For Each xcell In Range(Range("a5"), Cells(Rows.Count, "a").End(xlUp))
Set xrg = Range(Cells(xcell.Row, "b"), Cells(xcell.Row, "ap"))
n = Application.WorksheetFunction.CountA(xrg)
xcell.EntireRow.Hidden = (n = 0)
Next xcell
End Sub
Private Sub CommandButton3_Click()
Rows.Hidden = False
End Sub