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

A demonstration as a beginner starter :

PHP Code: 

Sub Demo()
        Dim V, R&
        Application.ScreenUpdating = False
    For Each V In [{8,21,34}]
        With Cells(V, 3).CurrentRegion
            For R = 3 To .Rows.Count Step 2
                With .Cells(R, 4).Resize(2)
                    If Application.CountBlank(.Cells) = 2 Then .EntireRow.Hidden = True
                End With
            Next
        End With
    Next
        Application.ScreenUpdating = True
End Sub 


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