Filename:= _
ActiveWorkbook.Path & "\" & ilk & "_" & son & "_Arası.pdf" burası dosya adresi ve adının olduğu yerdir
oraya istediğinizi yazarsınız
Filename:= _
DosyaAdresi & "\" & dosyaAdı & ".pdf"