Macro para convertir hoja excel a pdf y enivar a correo

buenas tardes, si me pudieran apoyar,  tengo una macro que copia la hoja actual en pdf con el combre que deje en cierta celda, y asi tambien enviar al correo que este en otra celda

y si copia el archivo pdf a cierta carpeta previamente puesta en celda  pero al enviar el archivo, el que adjunta es el archivo de excel y no el pdf que guardo anteriormente

me podrian apoyar para que al poner el archivo adjunto sea el pdf que se grabo anteriormente.

gracias

dejo la macro

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=Range("D2").Value & "" & Range("D1").Value, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Asunto = Range("b1").Value
para = Range("b2").Value
' agrega archivo como adjunto
Set parte1 = CreateObject("outlook.application")
Set parte2 = parte1.CreateItem(olmailitem)
parte2.to = para
parte2.Subject = Asunto
parte2.Attachments.Add ActiveWorkbook.FullName
parte2.Display ("D11")
Set parte1 = Nothing
Set parte2 = Nothing