Copy Worksheet To New - No Formulas

starting to dabble in the VBA coding, now. I tried finding this solution...but nothing quite the same. I have a spreadsheet with a couple tabs. The main tab is a calculation worksheet that pulls in, and performs various calculations on, data from the other couple tabs. This main tab will be the only one that most of my users will see (query and other data tabs will be hidden.)

What this workbook does is calculate accruals for our consultants, at the end of every month (period.) I am trying to put in code that, when activated by a button, will copy the entire main ("Accrual Worksheet") tab as a new tab, at the end of the workbook....as a period backup to the calculations on the main tab.

I created the below

===========================================================
Private Sub CommandButton2_Click()
Dim LastSheet As Integer
Dim aSht As Worksheet
Dim Test4 As String
Dim NameXists As Long

If MsgBox("Are You Sure You Wish to Finalize? This will copy sheet, without formulas, as backup.", vbYesNo, "Update Confirm") = vbNo Then
Exit Sub
Else

=============================================================

This seems to work great......EXCEPT (you knew one was coming), I only really want to copy the sheet as data/format only. I don't want the copy tab to have any VBA code, or formulas, on it. I just want a picture image of the "Accrual Worksheet", as reference to the activity for that period. In the following period, the same "Accrual Worksheet" will be used to work on the next month's activities.....and the data on that tab will change. So we need to store the final calculation, for further reference.