Button to save existing sheet as a new sheet

Is there a way to code a button to take a range of cells from the sheet the button is on and create a new sheet with all that data copied onto the new sheet vs referenced.
It would have a cell to insert a name for the new sheet and the button below it. The main goal is to have my sales data on one sheet and when I hit the button it would
create a separate sheet under that days date(as name) and reset the sheet to all zeros for the next days data. I havent had much experience with VBA since college so
please forgive me.

So this code is working to make a copy of my active sheet and place it at the end of my list of sheets.
I cant figure out how to make it take a range of cells from the active sheet vs the whole sheet.
This is not my original code but something I have butchered to suite my purposes.


Sub Button3_Click()
ActiveSheet.Copy after:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = GetName
End Sub

Private Function GetName() As String
Dim x As Long, n As String
n = ActiveSheet.Range("A1")
If SheetExists(n) Then
Do
x = x + 1
If Not SheetExists(n & x) Then Exit Do
Loop
n = n & x
End If
GetName = n
End Function

Private Function SheetExists(aName As String) As Boolean
On Error Resume Next
Dim sh As Worksheet: Set sh = Sheets(aName)
If Err = 0 Then SheetExists = True Else SheetExists = False
End Function

• Set first a Range variable on what you called « range of cells from the active sheet » …
  
  
• Create the new worksheet.
  
  
• Apply the copy method to the Range variable with its destination parameter filled like cell A1.
  
  
• Set the Range variable to Nothing …