Loop through a range pasting in Blank Cells

[luv2bowl2004]

I have a macro that will copy and paste to the next blank cell, but I need it to loop through the entire worksheet, with the condition that it skips the header rows in gray. In the attached sample worksheet I am tryting to copy E8:H8 to all blank cells to bottom, skipping row 21 & 24....etc. My macro copies and pastes correctly to Blank but i haven't figure out to make it loop and skip header properly.

Sub CopyH8ToBlanks()

   Range("E8:H8").Activate
   Selection.Copy

   lMaxRows = Cells(Rows.Count, "E").End(xlUp).Row
   Range("E" & lMaxRows + 1).Select
   Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
      False, Transpose:=False

End Sub