salvataggio automatico dati excel in pdf

Buongiorno,
ho un probblema,premetto che non sono molto preparato su macro,
devo salvare dati da foglio di lavoro excel e salvarli in pdf su cartella da me indicatache non riesco,inoltre
quanto vado salvare con la formula seguente mi salva tutte le 109 pagine.

Sub SalvaInPDF()
Dim ws As Worksheet
Dim strIndirizzo As String
Dim myFile As Variant
Dim strFile As String
On Error GoTo errHandler

Set ws = ActiveSheet

'apre la finestra di dialogo per il salvataggio dei file
'la cartella di default è la stessa della cartella di excel
strFile = Replace(Replace(ws.Name, " ", ""), ".", "_") _
& "_" _
& Format(Now(), "yyyy-mm-dd_hh-mm") _
& ".pdf"
strFile = ThisWorkbook.Path & "" & strFile

myFile = Application.GetSaveAsFilename _
(InitialFileName:=strFile, _
FileFilter:="PDF Files (*.pdf), *.pdf", _
Title:="Seleziona la cartella e inserisci il nome del file da salvare")

If myFile <> False Then
ws.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=myFile, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False

MsgBox "Il file PDF è stato salvato."
End If

exitHandler:
Exit Sub
errHandler:
MsgBox "Non ho potuto salvare il file PDF"
Resume exitHandler
End Sub

Serve un separatore di path, cambia questa riga in:

strFile = ThisWorkbook.Path & "\" & strFile

Grazie,
Solo che mi salva sempre le 110 fogli del programma excel da fatto.
Io vorrei salvare solo il foglio lavoro n1 nella cartella da me indicata.

A questo punto devi solo gestire l'area da salvare che solo tu puoi sapere.
Forse se alleghi un file senza dati sensibili e qualche indicazione in più su cosa vuoi salvare qualcuno potrebbe darti una ulteriore mano.

allegato file in discussione.
praticamente quanto vado sul pulsante pdf per salvare il foglio lavoro mi salva tutte le pagine.
inoltre vorrei imputare la destinazione dove salvare il file.
desktop cartella scadenzario.