Как сохранить и отправить как макрос 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