VBA Code to Automate Series of Cell Fill Color

[Mark21]

I am attempting to create an automated rotation work schedule by writing a code in VBA that would allow me input the number of days at work and off work which would start on the specified date on sheet 1. Based upon the date input in Sheet 1 D3, this would correspond with Sheet 2 column D to find the correct date listed in column A, then format the specified number of cells from Sheet 1 B3 to the fill color desired. Once the dates and correct number of cells were formated (14 for ex.) the code would then refer to Sheet 1 C3 to determine how many cells to leave non-filled in before filling the next set of cells based on Sheet 1 B3. Next the code would input the corresponding date number from Sheet 2 Column into the first and last filled cell. This code would repeate itself to to the end of the second year.

My hope is to be able to forecast a rotation work schedule based upon the starting date, days at work and days away from work with a few commands. Hopefully someone may an idea on how to help me out here.
Thanks