如何保存和发送为excel宏

Question

在我的代码中我将excel表格保存为pdf并将其附加到电子邮件中。我需要进行哪些更改，以便将其作为pdf文件导出，而不是将其另存为新的Excel工作表？ 顺便说一下，pdf的代码可以工作。

由于

Sheets("Sheet1").UsedRange.ClearContents
Set myRange = Application.Union(Range("A1:E3"), Range("A5:E5"), Range("A8:E17"), Range("A19:E48"), Range("A49:E77"))
myRange.Copy Worksheets("Sheet1").Range("A1")

'Create the PDF
Sheets("Sheet1").UsedRange.ExportAsFixedFormat Type:=xlTypePDF, Filename:=PDFFile, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
    :=False, OpenAfterPublish:=OpenPDFAfterCreating