Saving active worksheet with new file name and then generate a new invoice number

[BBs Engravings]

I have a invoice work book, my end goal is to save the active invoice sheet with a new file name on my one drive, then clear certain cells within the sheet, then generate the next sheet invoice number sequence. In need of the correct vba to do so. I have tried different ones but i always get an error message. I wanted to type Cntrl +N to do so, so that i can save time. I am new at excel and got the oringinal work book free online and i like the layout of it.