Command button to save as pdf

You can do by record macro

 Private Sub Btn_Click()
  Call macro1
 End sub

Try

Private Sub CommandButton1_Click()
Dim saveLocation As String, fileName As String
fileName = "myPDFFile.pdf"    ' <<<< CHANGE as needed
saveLocation = "C:\Users\xxxx\OneDrive\Desktop\" & fileName ' <<<< CHANGE as needed
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
      fileName:=saveLocation
End Sub

Into sheet code:

Private Sub CommandButton1_Click()
Call SavePDF4Me
End Sub

into module:

Sub SavePDF4Me()
Dim MyRng As Range
Dim MyFile As String

Set MyRng = ActiveSheet.[A1:O21]
MyFile = Environ("userprofile") & "\Desktop\MyPDFFromExcel.pdf"

MyRng.ExportAsFixedFormat _
                Type:=xlTypePDF, _
                Filename:=MyFile, _
                Quality:=xlQualityStandard, _
                IncludeDocProperties:=True, _
                IgnorePrintAreas:=False

End Sub

Check attached file.