和B3到F3单元格内容 指的是表格里B3单元格到F3单元格里的字段，新生成的工作簿应该作为第一个SHEET，改一下上面的宏

好的，以下是修改后的代码：

Sub CopySheet()
    Dim ws As Worksheet '定义工作表变量
    Dim newWs As Worksheet '定义新工作表变量
    
    '遍历所有工作表
    For Each ws In ActiveWorkbook.Worksheets
        '判断工作表名称是否为指定名称
        If ws.Name = "中兴通讯成品运输提货单(空运)" Then
            '复制工作表到新工作簿
            ws.Copy before:=Workbooks.Add.Sheets(1)
            '获取新工作表对象
            Set newWs = ActiveSheet
            '重命名新工作表
            newWs.Name = "中兴通讯成品运输提货单(空运) 和B3到F3单元格内容"
            '将公式转换成数值
            newWs.Range("B3:F3").Copy
            newWs.Range("B3:F3").PasteSpecial xlPasteValues
            '保存新工作簿到桌面
            ActiveWorkbook.SaveAs Filename:="C:\Users\" & Environ("USERNAME") & "\Desktop\" & newWs.Name & ".xlsx", FileFormat:=xlOpenXMLWorkbook
            '退出循环
            Exit For
        End If
    Next ws
End Sub

这段代码会将 "中兴通讯成品运输提货单(空运)" 工作表复制到新的工作簿文件中，并将新工作表的名称设置为 "中兴通讯成品运输提货单(空运) 和B3到F3单元格内容"。工作表中的 B3 到 F3 单元格的值将被复制到新工作表中，并将所有公式转换为数值。新工作簿文件将以 "中兴通讯成品运输提货单(空运) 和B3到F3单元格内容" 为名称保存到桌面，并作为第一个 Sheet 存在。