Macro to Copy Paste Values and Formulas

I have an existing macro that copies a worksheet and pastes it into another workbook, renames it and then attaches it to an email. My problem is that it pastes just the values. I need it to paste part of the original worksheet as values and part copy the formulas. So on the new workbook Columns A through F will be values only and G through Z will copy the formulas. Here is the script that I am working with. Thanks for any help.

Private Sub CommandButton2_Click()

    Range("A1").Select
    ActiveCell.SpecialCells(xlLastCell).Select
    Range(Selection, Cells(1)).Select
    Selection.Copy
    Workbooks.Add
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    ActiveWorkbook.SaveAs Filename:= _
        "C:\flapricelist.xls", FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False
    'Windows("flapricelist.xls").Activate
    'Cells.Select
    'Cells.EntireRow.AutoFit
    'Cells.EntireColumn.AutoFit
    'Cells.EntireRow.AutoFit
           
Rem Application.CutCopyMode = False
Rem Application.Dialogs(xlDialogSendMail).Show
Rem ActiveWorkbook.Close Savechanges:=True
    
    
End Sub

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # at the top of your post window. For more information about these and other tags, found here

Thanks for taking the time to read and comply with the rule .

This will copy the active sheet to a new workbook & replace formulas in A to F with values

Private Sub CommandButton2_Click()

    ActiveSheet.Copy
    With ActiveWorkbook
        Columns("A:F").Value = Columns("A:F").Value
        .SaveAs Filename:= _
                "C:\flapricelist.xls", FileFormat:= _
                xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
                                                                                   , CreateBackup:=False
    End With
End Sub

If you are satisfied with the solution(s) provided, please mark your thread as Solved.

How to mark a thread Solved
Go to the first post
Click edit
Click Go Advanced
Just below the word Title you will see a dropdown with the word No prefix.
Change to Solved
Click Save

It shouldn't, but try

Option Explicit

Private Sub CommandButton2_Click()

    ActiveSheet.Copy
    With ActiveWorkbook.ActiveSheet
        .Columns("A:F").Value = Columns("A:F").Value
        .SaveAs Filename:= _
                "C:\flapricelist.xls", FileFormat:= _
                xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
                                                                                   , CreateBackup:=False
    End With
End Sub