Create autoshapes and fill in text field based on a Range of cells

[The Planner]

I was browsing for a solution to my problem and found a thread that almost does what I need but not quite.

http://www.mrexcel.com/forum/excel-questions/305014-rename-autoshape-adding-text.html

This code creates 4 hard coded trapezoids and adds the text based on 4 preset cells.

I need a 'do while' loop to create as many squares, preferably, as there is lines of text in a specified range.
The resulting squares should be offset like a gantt chart effect with a finish to start link.


Any help with this would be greatly appreciated.