VBA To Populate Cells in a pattern

[mtagliaferri]

I have a shift planner which I populate days OFF with the letter 'O and it formats the cell colour to blue.
I would like to populate the row with a specific patter of 28 days which is 5 On, 5 Off, 4 On, 5 Off, 5 On, 4 Off, therefore when the patter is OFF I would like to populate the cell with the letter 'O'
more specifically I need this pattern to be able to start from the selected cell and populate the rows from there onwards and for the remaining sheets.
E.G in the sheet October if I start from the 3rd which is F7 I need to start the pattern from that cell till end of October (Cell AH7) and then continue with the pattern in November (D7 - AG7) and then December (D7- AH7). If I start from January then it will populate all sheets to December.

The difficult part is the leap year, the sheet populates the calendar section based on the year, therefore I have the additional column in February in order to accommodate the leap year.

Any thoughts if this is achievable? If so how?

 

[mtagliaferri]

Valid point.... the best would be that the new pattern starts from the new selection. I did not think of that therefore it would need to first clear and then write 'O' following the pattern.
I think I could manually clear the the cell before running the code as a worse case scenario. the reason to populate automatically is do avoid errors entering the pattern.

 

[Micron]

That idea requires that the selected cell is the correct one for the beginning of the pattern. If you chose the 2nd cell that would be 5 on instead of the 1st 5 on you'd mess it all up. Methinks I'd check that the selected cell is at the proper spot for the sequence at the leftmost side of the sheet, or if the user is capable, have them select the beginning point of the pattern so that they could start at 4 on/off if they knew that was what they wanted. That would complicate things though and there might be an easier way to avoid starting out of sync.