Something like:

Dim i as Integer

For i = 500 to 1 step-1 'adj as needed
With Range("A" & i)
If.Value<Date-730 then '730 days ago
.Offset(0,1)).Copy _

Destination:=Workbooks("Workbook2").Sheets("Sheet1 ").Range("A65536").End(xlUp)(2)
.EntireRow.Delete 'optional
End if
End With
Next i


"Greg" wrote:

I have a workbook the I want excel to automatically move the entries to
another work book if it is over 2 years old

The cells will be

column A (date) Column b (comment)


Thanks in advance

Greg