Button İle Seçili Sayfada Seçili Bölümü PDF olarak Seçilen Yere Kaydetme Sorunu

[UzayBerk]

Arkadaşlar merhaba,
Kodum da seçtiğim userforma koyduğum buton ile butona basıldığında seçtiğim sayfadaki seçtiğim yerin pdf olarak seçilecek yere kaydedilmesini sağlamaya çalışıyorum. Ancak koddan tam emin olmamakla beraber kodum da "argument not optional" uyarısı almaktayım. Yardımcı olabilirseniz sevinirim. Kodum aşağıdaki gibidir;
Private Sub CommandButton1_Click()
Dim sPath As String
Dim sFile As Variant
Dim ws As Worksheet

On Error GoTo ErrHandle
sPath = ThisWorkbook.Path & "\" & "Sheet1 " & Range("D5:I43")

sFile = Application.GetSaveAsFilename _
(InitialFileName:=sPath, _
FileFilter:="PDF Files (*.pdf), *.pdf", _
Title:="Kaydetmek için Klasör ve Dosya Adı'nı seçin")
If sFile = "False" Then
MsgBox ("Lütfen Bir Dosya Adı Seçin")
Exit Sub
End If
ws.ExportAsFixedFormat , _
Type:=xlTypePDF, _
Filename:=sFile, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
Exit Sub
ErrHandle:
MsgBox ("Document Not Saved")
End Sub