Macros color cells to make something as gantt chart

Hello everyone
Trying to make excel gantt chart with macros and need some help,the problem is that I don’t have proper dates hence all the gantt charts online wont work.
As a dates I have calendar weeks (CW01,CW02 etc..)
What I did so far looks like this:
Sub Macro1()
On Error Resume Next
Dim current As String
For I = 1 To 1340 ' go from first cell to last
current = "D" & I ' cell counter
Range(current).Select '
If Range(current).Text = "CW01/14" Then
Range(????).Interior.ColorIndex = 5
End If

The thing is I don’t know what to write in the range for picking up correct row, so every task date would be presented in the correct row.

Can someone help with this please.
Thanks

Good Morning Karbidas,

This isn't an answer to your question. But the Gantt Chart in this workbook is a pretty good one.

Thanks

right got new macro working (ish) only need calculation of value see below:
If Range(current).Text = "CW01/14" Then
Range("J" & ActiveCell.Row).Resize(, ??the number which i want to use from cell F???).Interior.ColorIndex = 5
End If

Can someone help me with that?

Thanks