Macro to copy Data where Date is > Today()

[MrSmith12]

I recently just built a web based program, and before being able to create an account you have to enter your Date of Birth. The data is then stored in Excel...anyway long story short...I want to be able to copy all of the data that is in the Excel spreadsheet where the DOB > Today() to a new workbook. I have seen posts similar to this, I just can't find code that does exactly this. In my Excel spreadsheet the date is in column R, and I would need the data copied from cells A - R copied to a new workbook, where Date > Today(). Can someone help me with code that would complete this action?