tente isso:

http://www.clubedohardware.com.br/forum ... criar-pdf/

'funciona office 2010 ou > (2007 c/* suplemeento PDF: http://www.microsoft.com/pt-br/download ... px?id=9943)

Dim Filepdf, rData, rNome, ePath, Filename As String
    If Application.Version < "12.0" Then
        MsgBox " Não é possivel salvar no Formato PDF para essa versão do Office"
        Exit Sub
    End If
    With Worksheets("Plan1")
        rData = .Range("A1")    ' na celula a1 insira uma data
        rData = Format(rData, "yyyy") ' altere a formatacao que desejar
        rNome = .Range("b1")    ' na celula b1 inira um nome ou numero que deseja
        ePath = .Range("C1")  ' Na "C1" diretorio que será salvo o PDF
        .PageSetup.Orientation = xlPortrait ' altere p/ xllandscape(orient. Paisagem)
        Filename = Trim(rData & "-" & rNome & ".Pdf")
        Filepdf = ePath & Trim("" & Filename)
        Application.DisplayAlerts = False
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Filepdf, _
                                        Quality:=xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
                                        OpenAfterPublish:=True
    End With

Dei uma olhada porem não mostra como salvar apenas algumas celulas, isso é possivel salvar apenas algumas celulas?

With Worksheets("Plan1")

Ai seria o local onde eu escolho quais celulas eu salvo?