Set print area by counting 6 rows, skip words when counting

[wherbjr35]

Sound crazy enough??

I am trying to figure out how to set my print area to give me a 6 week calendar. So ideally, I would like to see this in my print area:

January 2005 (skip when counting)
Row1
Row2
Row3
Row4
February 2005 (skip when counting)
Row5
Row6

So far I have this, which just sets a static range of cells in the print area.

Sub Macro1
Range("A1:H11").Select
ActiveSheet.PageSetup.PrintArea = "$B$1:$H$6"
End Sub

I need to add a place where a cell search will look for "January 2005", 'Febuary 2005", etc, and skip over that row is it count to 6 rows (weeks on calendars)

ANY thoughts would be appreciated.