save sheet as macro enabled workbook using codes

Hi.
Working with a macro enabled workbook that has many sheets what would be a good code that would save Sheet1 into a new MACRO enabled workbook so that the 'Buttons' (which are linked to macros) on this specific sheet will be the only macros that will be copied to the new workbook as opposed to the rest of the macros that are found in different sheets?
It sounds easy but I can't get it to work.

Here is what I g=have:

Sub SaveWorksheet()

Dim ws As Worksheet:    Set ws = Sheets("Sheet1")

ActiveSheet.Copy ' Copies active sheet to a new workbook
ActiveWorkbook.SaveAs Filename:="" & Range("AD5") & Format$(Date, "YYYY-MM-DD") & " INVOICE " & Range("H5").Value & "xlsm"

End Sub