Macro to loop through column, if blank blank cells then hide rows

It's weird to not attach a real layout workbook in the initial post except if you are able to modify any code …

According to your last attachment, paste this demonstration to the Sheet1(Summary Stats) worksheet module :

PHP Code: 

Sub Demo1()
       Dim A$, Rg As Range
       Application.ScreenUpdating = False
    With Me.UsedRange.Columns(5)
           Set Rg = .Find("BUY", , , xlWhole)
        If Not Rg Is Nothing Then
           A = Rg.Address
            Do
                With Rg(1, 2).Resize(2)
                    If Application.CountBlank(.Cells) = 2 Then .EntireRow.Hidden = True
                End With
                   Set Rg = .FindNext(Rg)
            Loop Until Rg.Address = A
           Set Rg = Nothing
        End If
    End With
       Application.ScreenUpdating = True
End Sub 


► Do you like it ? ► ► So thanks to click on bottom left star icon « ★ Add Reputation » !