Problem building automatic progress report updater

maybe something like this

Sub ProgressUpdate()
Dim dt&
With Sheets("Sheet1")
    dt = Date - .Range("C4").Value 'Range("C4") is a start date
    Cells(6, dt + 3).Value = Sheets("Sheet2").Range("C3").Value
    Cells(8, dt + 3).Value = Sheets("Sheet2").Range("C4").Value
    Cells(10, dt + 3).Value = Sheets("Sheet2").Range("C5").Value
End With
End Sub