根据行中的日期隐藏列（甘特图表头）VBA

I've created a Gantt table in Excel and I'm using macros to expand or collapse the dates into weeks, workweeks, calender weeks and months. The trick is: Saturdays and Sundays are hashed with conditional formatting and therefore shouldn't appear when collapsed. So far I've managed to make all but the months option work correctly. here is the code to collapse month that I have so far:I've created a Gantt table in Excel and I'm usi