Macro-guardar-en-pdf-y-mandar-el-archivo-el-pdf-por-correo

Quería saber si alguien me podía ayudar a crear o modificar un macro que guarde un archivo en PDF con nombre en base a una celda que es un formato concatenar de una celda que también es consecutivo, para después este archivo en PDF mandarlo por correo.

Este es el código que tengo hasta el momento

[g2] = [g2] + 1
Sheets("COTIZACION").Select
Sheets("COTIZACION").Copy
Range("G3").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Dim NameFile, Cotizacion, Fecha As Variant
'Cotizacion= UCase(inputbox("Numero de Cotizacion: ", "Cotizacion #"))
'Empresa = UCase(inputbox("Nombre de empresa: ", "Empresa:"))
'Para = UCase(inputbox("Nombre de cliente: ", "Para:"))
Cotizacion = Range("g2").Value
Empresa = Range("C7").Value
Para = Range("c6").Value
'Response = msgbox("La cotizacion es: " & Cotizacion, vbInformation, "Cotizacion #")
'Response = msgbox("El Para es: " & Para, vbInformation, "Para")
'Response = msgbox("La Empresa es: " & Empresa, vbInformation, "Empresa")
ChDir "C:\Cotizaciones"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Cotizaciones\" & Para & "_Cotizacion_" & Cotizacion & "_" & Empresa & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
ActiveWorkbook.SaveAs Filename:="C:\Reporte\" & Para & "_Cotizacion_" & Cotizacion & "_" & Empresa & ".xlsm", FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
ActiveWindow. Close
ActiveWorkbook. Sabe
End Sub