Draw Gantt chart with Shapes

[JCabral]

	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q	R	S	T	U	V	W	X	Y	Z	AA	AB	AC	AD	AE	AF	AG	AH	AI	AJ	AK	AL	AM	AN	AO	AP	AQ	AR	AS	AT	AU	AV	AW	AX	AY	AZ	BA	BB	BC	BD	BE	BF	BG	BH	BI	BJ	BK	BL	BM	BN	BO	BP
1
2
3
4
5	ACTIVITY MAP
6
7	ACTIVITY	PLANNING							INITIAL PERIOD:							01-01-2015					PERIODS
8		INITIAL PLAN			REAL PLAN				2015												2016												2017												2018												2019
9		Start date	Days	End date	Start date	Days	End date		1	2	3	4	5	6	7	8	9	10	11	12	1	2	3	4	5	6	7	8	9	10	11	12	1	2	3	4	5	6	7	8	9	10	11	12	1	2	3	4	5	6	7	8	9	10	11	12	1	2	3	4	5	6	7	8	9	10	11	12
10	AT1	05-12-2016	180	03-06-2017	15-05-2017	180	11-11-2017
11	AT2	01-07-2017	120	29-10-2017	01-07-2017	120	29-10-2017
12	AT3	02-08-2017	100	10-11-2017	15-12-2017	90	15-03-2018
13
14
15
16

<tbody>
</tbody>

Folha1​

Describing the excel spreadsheet:
From columns B to column G, you have the data with the different dates and deadlines (days that the activities last)

From column I to column BP, I have the period, YEAR and MONTH, the initial year may vary and thus, (I8: BP8) (Years) may vary.

What I want:

In VBA to draw a red rectangle (SHAPE) with the period that lasts the prediction of AT1 activity, from 12/5/2016 to 3/6/2017, and a green rectangle (SHAPE) with the period that actually lasts the activity AT1, 05/15/2017 to 11/11/2017.

And this for all activities. Whenever I delete an activity, the rectangles are also deleted, and the formatting that existed is restored.
Whenever I enter a new activity the map is updated (only the new line)

I Can provide the spreadsheet basis

Thank you for your help

Jorge Cabral