Trouble converting Gantt from Wkly to Mthly

[LS0009]

Hello,

Having a rough go at converting my Gantt from Weekly to Monthly visuals. Problem: Partial months are not being highlighted in the Gantt. In ex below, first milestone has actual finish on 10/21 - would like Month 5 to be highlighted. Would like this to work for both the "Scheduled" and "Actual" start/finish

Gantt_LS1.xlsx
	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q	R	S	T	U	V
4	PROJECT START DATE	06/01/21
5										Month 1	Month 2	Month 3	Month 4	Month 5	Month 6	Month 7	Month 8	Month 9	Month 10	Month 11	Month 12
6	TASK TITLE Sub Task Title	TASK DESCRIPTION Sub Task Description	PRIORITY / RISK LEVEL Resource Type >>	SCHEDULED START	SCHEDULED FINISH	ACTUAL START	ACTUAL FINISH	FINISH VARIANCE	DURATION (DAYS)	6/30/21	7/31/21	8/31/21	9/30/21	10/31/21	11/30/21	12/31/21	1/31/22	2/28/22	3/31/22	4/30/22	5/31/22
7			*Set Priority / Risk	06/01/21	09/15/21	06/01/21	10/21/21	26	103	ftr	ftr	ftr	fntr	entr	entr	entr	entr	entr	entr	entr	entr
8			*Set Priority / Risk	10/01/21	11/01/21	10/01/21	12/15/21	32	54	entr	entr	entr	entr	ftr	fntr	entr	entr	entr	entr	entr	entr
Project Gantt

Cell Formulas
Range	Formula
K6	K6	=EOMONTH(C4,0)
L6:V6	L6	=EOMONTH(K6,1)
I7:I8	I7	=IF(AND(AND(NOT(ISBLANK(F7)),NOT(ISBLANK(H7))),F7<>H7),NETWORKDAYS(F7,H7)-1,"")
J7:J8	J7	=NETWORKDAYS(G7,H7)
K7:S8	K7	=IF(OR(AND(K$6<=$G7,K$6<=$E7,K$6<=$H7,K$6<=$F7),AND(K$6<=$G7,K$6>$E7,K$6<=$H7,K$6>$F7),AND(K$6>$G7,K$6<=$E7,K$6>$H7,K$6<=$F7),AND(K$6>$G7,K$6>$E7,K$6>$H7,K$6>$F7)),"entr",IF(OR(AND(K$6<=$G7,K$6>$E7,K$6<=$H7,K$6<=$F7),AND(K$6>$G7,K$6>$E7,K$6>$H7,K$6<=$F7)),"etr",IF(OR(AND(K$6>$G7,K$6<=$E7,K$6<=$H7,K$6<=$F7),AND(K$6>$G7,K$6>$E7,K$6<=$H7,K$6>$F7)),"fntr",IF(AND(K$6>$G7,K$6>$E7,K$6<=$H7,K$6<=$F7),"ftr","err"))))
T7:V8	T7	=IF(OR(AND(EDATE(T$6,1)<=$G7,EDATE(T$6,1)<=$E7,EDATE(T$6,1)<=$H7,EDATE(T$6,1)<=$F7),AND(EDATE(T$6,1)<=$G7,EDATE(T$6,1)>$E7,EDATE(T$6,1)<=$H7,EDATE(T$6,1)>$F7),AND(EDATE(T$6,1)>$G7,EDATE(T$6,1)<=$E7,EDATE(T$6,1)>$H7,EDATE(T$6,1)<=$F7),AND(EDATE(T$6,1)>$G7,EDATE(T$6,1)>$E7,EDATE(T$6,1)>$H7,EDATE(T$6,1)>$F7)),"entr",IF(OR(AND(EDATE(T$6,1)<=$G7,EDATE(T$6,1)>$E7,EDATE(T$6,1)<=$H7,EDATE(T$6,1)<=$F7),AND(EDATE(T$6,1)>$G7,EDATE(T$6,1)>$E7,EDATE(T$6,1)>$H7,EDATE(T$6,1)<=$F7)),"etr",IF(OR(AND(EDATE(T$6,1)>$G7,EDATE(T$6,1)<=$E7,EDATE(T$6,1)<=$H7,EDATE(T$6,1)<=$F7),AND(EDATE(T$6,1)>$G7,EDATE(T$6,1)>$E7,EDATE(T$6,1)<=$H7,EDATE(T$6,1)>$F7)),"fntr",IF(AND(EDATE(T$6,1)>$G7,EDATE(T$6,1)>$E7,EDATE(T$6,1)<=$H7,EDATE(T$6,1)<=$F7),"ftr","err"))))
B7:B8	B7	=IFERROR(VLOOKUP(#REF!,Milestones,3,FALSE),"")

Cells with Conditional Formatting
Cell	Condition		Cell Format	Stop If True
D8	Cell Value	contains "HIGH"	text	NO
D8	Cell Value	contains "MEDIUM"	text	NO
D8	Cell Value	contains "LOW"	text	NO
D8	Cell Value	contains "EXTREME"	text	NO
D7	Cell Value	contains "HIGH"	text	NO
D7	Cell Value	contains "MEDIUM"	text	NO
D7	Cell Value	contains "LOW"	text	NO
D7	Cell Value	contains "EXTREME"	text	NO
K7:AH8	Cell Value	="err"	text	NO
K7:AH8	Cell Value	="entr"	text	NO
K7:AH8	Cell Value	="fntr"	text	NO
K7:AH8	Cell Value	="ftr"	text	NO
K7:AH8	Cell Value	="etr"	text	NO

Cells with Data Validation
Cell	Allow	Criteria
D7:D8	List	=Priorityrisk