ガントチャート工程表をVBA及び条件付き書式にて作成したい

Question

閲覧して頂きありがとうございます。
仕事で必要に迫られ作成を依頼されましたが、構想が複雑になりすぎて上手く出来ません。
なにかいい案がありましたらご教授願えればと思います。

【基本仕様】
①表示期間は最大6ヶ月間
②日にち単位で表示
③作業期間はセルの塗り潰しにて表現
④セルの塗り潰しは3色(予定(青)・予定変更(緑)・実施(赤))
⑤横軸(作業内容)にて開始日/終了日を入力するとその期間のセルが塗り潰しされる
⑥同じ行内に複数の塗り潰しが発生する場合がある(例：4/13～4/15と4/18～4/20)
⑦別シート(configシート)等で休日を設定したらその日はグレーで塗りつぶし
⑧セルの塗り潰しの数をカウントし進捗グラフにもちいる

以上が最低限やりたいことです。余裕があれば行の追加もボタンを使用して行えればと考えています。

最初は、条件付き書式でセルの塗り潰しを行うつもりでしたがそれだと、⑥の時に開始、終了を複数作らなくてはいけないのでマクロにて
Private Sub CommandButton1_Click()
Dim r As Range
For Each r In Range("H6:EM200")
If Cells(4, r.Column) >= Cells(r.Row, 5) And Cells(4, r.Column) <= Cells(r.Row, 6) Then
r.Interior.Color = RGB(0, 255, 0)
End If
Next
End Sub

にて代替えしましたが、今度は④の色分けが上手くいかず、上記のFor Each r In Rangeを細かく設定することになってしまい、FormatConditions.Addを使って私の希望することが出来ないかなぁとの状態になっています。
それ以外の部分も基本仕様でネックになりそうな箇所あれば教えて頂ければ幸いです。
よろしくお願い致します。

Answer 1

途中まで頑張ったけど、まだまだ先は長そう。

Answer 2

作業をセルにはめていては、将来、ふくらんでくるである要望に対処しきれない気がします。
VBAはオブジェクト指向ではありませんが、Typeで構造体がつくれます。
１つのTypeで、ひとつの作業の全情報を保管できるようにして、
シート上では作業ひとつをひとつのShape(図形・四角形)で表すようにするのはいかがでしょうか。