VBA复制后自动新建, 去除公式粘贴后保存

找方法噶

我想加一个按钮, 按一次后自动复制sheet1中K8:BA22这一片区域, 到新建的一个空白表格里面(格式, 内容带过去, 但是公式要替换成值)再保存为桌面.
我自己录了宏,怎么调都不行, 请大神帮助.


Private Sub CommandButton1_Click()
Range("K8:BA22").Select
    Selection.Copy
    Workbooks.Add
    ChDir "C:\Users\jinfr\Desktop"
    ActiveWorkbook.SaveAs Filename:="C:\Users\jinfr\Desktop\失败率.xlsx", _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
        
    Windows("失败率").Activate
    Sheets("sheet1").Select
    Range("B2").Select
    ActiveSheet.Paste
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
   
End Sub