Copy macro (depending on date)

Hi All,

I need help with my tracker. Im new when it comes to using VBA.. Im guilty in just using record to get stuff done..

Problem I have now is how can I copy the details in Sheet1 (B5:B8) to DB worksheet in the corresponding date..
Also the now() function always adjust.

Please help me on this...

duration tracker.xlsm

One possibility...

Sub record()
    Dim vData As Variant
    Dim dDate As Date
    Dim x As Long
'COLLECT DATA
    With Worksheets("Sheet1")
        vData = .Range("B5:B8").Value2
        dDate = .Range("A2").Value2
    End With
'POST DATA
    With Worksheets("Db")
        For Each rng In .Range("B2:K2")
            If rng.Value2 = dDate Then rng.Offset(2, 0).Resize(4, 1) = vData
        Next
    End With
End Sub

Also. change =Now() to =Today() and preformat the Db time cells.