Excel pdf vba экспорт на одну страницу

Question

я пытаюсь получить кнопку, которая экспортирует большой лист Excel в pdf, а затем очищает форму, в тот момент, когда я использую приведенный ниже код, есть ли способ сжать все формы на одном листе, как в тот момент, когда ониперемешивание разных страниц

Sub SubmitForm()

'
'
     Sheets(Array("Megalist")).Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Range("A1"), Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
             Sheets("Megalist").Select

     'Sheets(Array("Megalist")).Select
    'ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Range("A1"), Quality:= _
       ' xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=false, _
        'OpenAfterPublish:=true
           '  Sheets("Megalist").Select



'ThisWorkbook.Saved = True


Range("C1", "D1").ClearContents
Range("C3", "K12").ClearContents
Range("D14", "K33").ClearContents
Range("D36", "K59").ClearContents
'MsgBox ("Megalist Logged, Please Enter tommorrows patients.")

End Sub