Your line of thought is off.
You don't copy an entire sheet and paste it to a blank sheet, you just create a copy of the original.
Start the macro recorder
right click the sheet 1 tab
click move or copy
check Create a copy
click OK
rename the sheet
Stop the macro recorder and see what it produced
It can be reduced to something like this to be used in your command button macro.
Code:
Sheets("Sheet1").Copy before:=Sheets(1)
ActiveSheet.Name = SheetName