Pon la siguiente macro en un botón.
Cambia en la macro "unificado.pdf" por el nombre que quieras ponerle al archivo.
Sub Macro9()
' Por Dante Amor
'
' Guardar las 2 primeras hojas en PDF
'
ruta = ThisWorkbook.Path & "\"
arch = "unificado.pdf"
Sheets(Array(1, 2)).Select
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=ruta & arch, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
Sheets(1).Select
MsgBox "Pdf creado"
End Sub
'.[Sal u dos. Dante Amor. No olvides valorar la respuesta.
'.[Avísame cualquier duda