Hi Bobby,
Will this suffice?

Public Sub HideUnNamed()
Dim I As Long
For I = 1 To 21 Step 4
If Cells(I, 1).Value = "" Then
Range(Cells(I, 1), Cells(I + 3, 1)).EntireRow.Hidden = True
End If
Next I
End Sub

Ken Johnson