Expired data copy to another sheet. But expired data repeat when i run it.

Hi, my company has a Data tab where it has all the contract. It has all the expiry date. As and when, the admin will manually copy and paste those expired contract to another sheet call "Expiry". I am thinking of writing a VBA which will Copy and paste those Expired Contract to the "Expiry" tab. Hence i write the code whenever the "Expiry" tab is activated.

Private Sub Worksheet_Activate()
Dim datalastrow As Long, expirylastrow As Long, i As Integer
Dim aaa As Long
datalastrow = Sheets("Data").Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To datalastrow
If Sheets("Data").Cells(i, 1) < Date Then
Sheets("Data").Rows(i).Copy
expirylastrow = Sheets("Expiry").Cells(Rows.Count, 1).End(xlUp).Row
aaa = expirylastrow + 1
Sheets("Expiry").Rows(aaa).PasteSpecial

End If
Next i
Application.CutCopyMode = False
End Sub

I realise that the Expired data will repeat whenever i select Expiry tab. Hence making it useless... Is there a way to solve it? i know i can solve the problem by adding a Clear Content on top. But i believe there is a better way to do it. Please advice.... =)

Hi, it seems to work. But how come it include those > today??

Ya, the expiry tab should show onli expired date. I copy n paste ur code, but those "after today" is being Copy n paste too.

Hi, see my file...
Maybe its setting issue???

Hey, weird. I tried to with date like 01/01/2020. It wont copy and paste.
Hence i key in 01/01/2018 to 31/12/2018. Then weird, it will copy till 03/10/2018. I aso duno y it will stop at that date.
If onli i can make a video to show u.... see the excel for "proof"

I think u misunderstood. I mean i wan the code to Copy and Paste only Date BEFORE today to Expiry Tab. Hence, if my data has 01/01/2018 to 31/12/2018, it should copy 01/01/2018 to 09/04/2018 to the expiry tab if i run the Code. N tomorrow, if i run the code, it should Copy and Paste 10/04/2018. If i run the code again on 15/04/2018, it should copy n paste 11/04/2018 to 14/04/2018.
But now, it copy 01/01/2018 to 03/10/2018 to expiry tab. i duno y it will copy till that date too.