Associe esta macro ao seu botao :

Sub SalvarComoPDF()
    Dim Filepdf, ePath As String
    Dim ULinha As Long
    With Worksheets("plan1")    'altere aqui, de acordo com o nome da planilha (aba)
        UltLinha = .Cells(Cells.Rows.Count, "d").End(xlUp).Row 'determina a ultima linha preenchida
        ePath = "C:...Pasta que deseja salvar seu PDF"    'Altere aqui a pasta de acordo
                                                 'com o local que deseja salvar
        Filepdf = ePath & "Orcamento" & "-" & Format(Date, "yyyymmdd") & ".PDF"
        With ActiveSheet.PageSetup
            .Orientation = xlLandscape    '(Paisagem)  e xlPortrait (retrato)
            .Zoom = 75    ' altere aqui o zomm do ajuste da folha
            .FitToPagesWide = 1
            .FitToPagesTall = 1
        End With
        'ActiveSheet.PrintPreview EnableChanges:=False
        'altere a linha abaixo de acordo com a area que deseja slavar
        .Range("d14:k" & UltLinha).ExportAsFixedFormat Type:=xlTypePDF, Filename:=Filepdf, _
                                                       Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
                                                       OpenAfterPublish:=True
    End With
End Sub

Basole muito obrigado pela ajuda, Ficou excelente, e muito funcional...

Desde de ja agradeço, qualquer coisa estou aqui.