Map Schedule Data onto Calendar View Generated by Macro

I have a workbook containing a schedule in a linear format arranged with columns corresponding to Outlook fields to allow import into an Outlook calendar.

Because of various institutional inanities, there still needs to be a calendar view of the schedule in excel format for distribution to departments not sharing outlook access.

I lifted this CalendarMaker macro from the internet:

Please Login or Register  to view this content.

I need to map cells in the "Subject" field from the linear schedule to the corresponding day on the calendar view. Weekdays have two shifts and weekends have only one shift, so the rows of my schedule will not relate to dates in a static manner from month to month. I am happy to concatenate both shifts in a single calendar cell, but I just can't figure out how to get started on this. Any help? Thanks in advance.

Please Login or Register  to view this content.

This code works to place that text in the cell under the 1st day of the month but does not continue to loop through the remaining days. How to fix this loop?

Please Login or Register  to view this content.

Closer. It now loops through the data and places the values in the correct cells. Now I just need to fix two things:
1. The calendar macro only generates one row for input per day. I would like it to make 4 rows per day. Any suggestions?
2. The OnCallforDate macro will place the last value for the date in the cell, is it possible in VBA to do an IF a AND b THEN ... ELSE IF a AND c THEN ...?