Macro to copy rows based on moving date and paste the rows into an identical sheet

Hi this is the code I am trying to develop. I've started it at row 275 and it needs to then run down daily indefinitely. Please help!

Sub Copypastedata1()
'
' Copypastedata1 Macro
'

'
Sheets("Data Entry Daily FCST.").Activate
ActiveSheet.Range("$D$9:$DD$931").AutoFilter Field:=1, Criteria1:= _
xlFilterToday, Operator:=xlFilterDynamic
For i = 275 To Range("D275").End(xlDown).Row()
If Range("D" & i).Value = Today Then
Selection.Copy
Sheets("Data Entry Daily FCST. Archive").Select
Range("D & i").Value.Select
Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A5").Select
Sheets("Data Entry Daily FCST.").Select
ActiveSheet.Range("$D$9:$DD$931").AutoFilter Field:=1
Application.CutCopyMode = False
Range("B4").Select
End If
Next i
End Sub



Hi,

Hoping someone can help me with the code for a macro that I need. The macro needs to copy three rows which are tagged by the day's date.


e.g. 28/1/2014
28/1/2014
28/1/2014


I need the macro to recognize the date when pressed and copy the corresponding rows of data and paste them into an identical sheet with the same dates. The second sheet is an archive sheet. The date will as per the calendar.

Please help

Mark