Copy rows into different Sheet based on todays date

[Esebn]

Dear all,

I have a spreadsheet with different pharmaceuticals and need to make sure the expiration date is not missed. Therefore i would like to have a button to press every time i upload new data to the sheet. I would like the whole row copied if the date is under todays date - Let's say the date in H2 is under todays date, then i would like for A2-L2 copied into the next sheet. Notice that some of the cells are empty. The attached excel file is a small part of the larger excelsheet with around 11.000 rows

From looking at kinda similar questions I ended up with this VBA code, which does not work.

Sub CopyRows()

'MakroCopyRows

Application.ScreenUpdating = False

With Sheet1.[H1].CurrentRegion
.AutoFilter 7, "<" & [Today()]
.Offset(1).Copy Sheet3.Range("A" & Rows.Count).End(3)(2)
.AutoFilter
End With

Application.CutCopyMode = False
Application.ScreenUpdating = True

End Sub

I hope you guys can help out.

Regards,

Esebn

[xladept]

This runs:

Please Login or Register  to view this content.

Let me know if it's what you want.

BTW:Your post does not comply with Rule 2 of our Forum RULES. Use code tags around code.

Posting code between [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Click on Edit to open your thread, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here