Macro de excel para generar un solo PDF con 2 hojas distintas .

Hola buenos días, estoy intentando hacer una macro en Excel para que me genere pdfs con información de dos hojas distintas.

La primera hoja depende de la segunda.

Esta segunda hoja cuenta con una lista de valores que la macro va cambiando automáticamente

Esta es la macro que he creado hasta ahora, pero solamente incorpora una hoja, necesitaría que me ayudaseis para incorporar la otra hoja

Option Explicit
Dim nomdefichier As String

Public Sub HORAS()
Dim Concatener As String

Dim n As Integer

If MsgBox("Hola, Quiere activar la macro para crear los Pdf's ?", vbYesNo, "Demande de confirmation") = vbYes Then

Concatener = 0
n = 3

Sheets("aperturas cierres").Select
While Cells(n, 1).Value <> ""
Concatener = Cells(n, 1).Value
Sheets("RECAP").Select
Cells(2, 1).Value = Concatener
nomdefichier = Cells(3, 3) & "- Horas"
PrintToPDF

Sheets("aperturas cierres").Select
n = n + 1
Wend
Sheets("aperturas cierres").Select

End If

End Sub