macro to copy sheet to end with sheet name current date

Hi All
I want to create button macro to copy active sheet to the end with sheet name current date. I create code that copy active sheet and create new workbook:

Sub CopySheet()
    ActiveSheet.Copy
    ActiveSheet.Name = Format(Date, "mm-dd-yy")
End Sub

How to modify the code to get copy active sheet to the end on the same workbook?
Thanks