Conditional Format In VBA

Hi1Tasks23-Apr-09Inercona.Trial1
b.Trial2

Tasks23-Apr-09Enercona.Trial1b.Trial2

Disregard the First Table. I cant remove it. refer to the Second Table

This table is a Task Tracker. The Start Button Adds the Current Date in Enercon's Row C1 and the row below (C2) will automaticaly filled with color using Conditional Formating. My Question is how can I code a conditional format for Trail1 Rows. For example when Trail1 Cell is active then you click the start Button instead of Coloring D2 Cell it should Color D3 Cell.

Here is the Code in Start Button

Sub cmdStart_Click()
Dim i As Integer
Results = MsgBox("Are you working on " & ActiveCell.Value & " today ?", vbOKCancel, "")
If Results = vbOK Then

With Sheets("Sheet1")
i = .Cells(2, Columns.Count).End(xlToLeft).Column + 1
.Cells(2, i).Value = Now()
i = i + 1

End With
Else
Range("A1").Select
End If
End Sub
Regards,
Kevin