Copying cell information based on date

Good Morning,

I'm trying to get certain cells to populate information from another cell based on a date. I.E. - I want O4:Z4 to copy what is in cell D8 (an amount) when O2:Z2 are Date(Now) or greater. I need to show when something in D8 is actually 0 and also if/and when the next date occurs and D8 changes that it doesn't change the information in the previous O4:Z4 cell. My code is listed below and the document is attached for a better understanding of it all.

Can anyone help?!?!? PLEASE!

Private Sub Worksheet_Calculate()


On Error Resume Next
If DateValue(Range("F4:F5")) = "" Then Exit Sub

On Error GoTo WorkSheet_Calculate_ErrorHandler

If Range("O4").Value = "0" Then

    If DateValue(Now) >= DateValue(Range("O2")) Then
      Range("O4").Value = Range("C8").Value
    End If

End If

If Range("P4").Value = "0" Then

    If DateValue(Now) >= DateValue(Range("P2")) Then
      Range("P4").Value = Range("C8").Value
    End If

End If

If Range("R4").Value = "0" Then

    If DateValue(Now) >= DateValue(Range("R2")) Then
      Range("R4").Value = Range("C8").Value
    End If

End If

If Range("S4").Value = "0" Then

    If DateValue(Now) >= DateValue(Range("S2")) Then
      Range("S4").Value = Range("C8").Value
    End If

End If

If Range("T4").Value = "0" Then

    If DateValue(Now) >= DateValue(Range("T2")) Then
      Range("T4").Value = Range("C8").Value
    End If

End If

If Range("U4").Value = "0" Then

    If DateValue(Now) >= DateValue(Range("U2")) Then
      Range("U4").Value = Range("C8").Value
    End If

End If

If Range("V4").Value = "0" Then

    If DateValue(Now) >= DateValue(Range("V2")) Then
      Range("V4").Value = Range("C8").Value
    End If

End If

If Range("W4").Value = "0" Then

    If DateValue(Now) >= DateValue(Range("W2")) Then
      Range("W4").Value = Range("C8").Value
    End If

End If

If Range("X4").Value = "0" Then

    If DateValue(Now) >= DateValue(Range("X2")) Then
      Range("X4").Value = Range("C8").Value
    End If

End If

If Range("Y4").Value = "0" Then

    If DateValue(Now) >= DateValue(Range("Y2")) Then
      Range("Y4").Value = Range("C8").Value
    End If

End If

If Range("Z4").Value = "0" Then

    If DateValue(Now) >= DateValue(Range("Z2")) Then
      Range("Z4").Value = Range("C8").Value
    End If

End If



Exit Sub

WorkSheet_Calculate_ErrorHandler:
Stop


End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

If DateValue(Now) = DateValue(Range("O2").Value) Then

    If Range("O4").Value <> Range("C8").Value Then
      Range("O4").Value = Range("C8").Value
    End If
   
End If

If DateValue(Now) = DateValue(Range("P2").Value) Then

    If Range("P4").Value <> Range("C8").Value Then
      Range("P4").Value = Range("C8").Value
    End If

End If

If DateValue(Now) = DateValue(Range("R2").Value) Then

    If Range("R4").Value <> Range("C8").Value Then
      Range("R4").Value = Range("C8").Value
    End If

End If

If DateValue(Now) = DateValue(Range("S2").Value) Then

    If Range("S4").Value <> Range("C8").Value Then
      Range("S4").Value = Range("C8").Value
    End If

End If

If DateValue(Now) = DateValue(Range("T2").Value) Then

    If Range("T4").Value <> Range("C8").Value Then
      Range("T4").Value = Range("C8").Value
    End If

End If

If DateValue(Now) = DateValue(Range("U2").Value) Then

    If Range("U4").Value <> Range("C8").Value Then
      Range("U4").Value = Range("C8").Value
    End If
End If

If DateValue(Now) = DateValue(Range("V2").Value) Then

    If Range("V4").Value <> Range("C8").Value Then
      Range("V4").Value = Range("C8").Value
    End If
End If

If DateValue(Now) = DateValue(Range("W2").Value) Then

    If Range("W4").Value <> Range("C8").Value Then
      Range("W4").Value = Range("C8").Value
    End If
End If

If DateValue(Now) = DateValue(Range("X2").Value) Then

    If Range("X4").Value <> Range("C8").Value Then
      Range("X4").Value = Range("C8").Value
    End If
End If

If DateValue(Now) = DateValue(Range("Y2").Value) Then

    If Range("Y4").Value <> Range("C8").Value Then
      Range("Y4").Value = Range("C8").Value
    End If
End If

If DateValue(Now) = DateValue(Range("Z2").Value) Then

    If Range("Z4").Value <> Range("C8").Value Then
      Range("Z4").Value = Range("C8").Value
    End If
End If

If Not Intersect(Target, Range("F6")) Is Nothing Then
If Target.Count > 1 Then Exit Sub
Application.ScreenUpdating = False
Application.EnableEvents = False
With Target.Offset(-2, 21)
    .Formula = Range("C8").Value
End With
Application.EnableEvents = True
Application.ScreenUpdating = True
End If



If Not Intersect(Target, Range("F7")) Is Nothing Then
If Target.Count > 1 Then Exit Sub
Application.ScreenUpdating = False
Application.EnableEvents = False
With Target.Offset(-3, 22)
    .Formula = Range("C8").Value
End With
Application.EnableEvents = True
Application.ScreenUpdating = True
End If
    



End Sub