isimlendirme işini aşağıdaki kısım yapıyor

'_______________dosya var mı

n = 1

Do '

   DosyaAdi = Xhedef & xMyFile & "_" & Replace(Space$(3 - Len(n)), " ", "0") & n & ".pdf" 

    n = n + 1

Loop Until Dir(DosyaAdi) = ""

'_______________dosya var mı bitti

önce "dosya ismi" var mı diye kontrol ediyor, eğer isim var ise 1er 1er artırarak döngüyü sürdürüyor dolayısıyla aynı ismi asla vermiyor.
burada asıl sorun dosyaya sizin yapacağınız isimlendirme;
eğer _tarananlar klasöründe isim çakışması olmayacaksa aynıkişi_aynıyıl_aynıay_aynıTür sıralamasında tek dosya olacaksa sizin ayrıca isimlendirme yapmanıza gerek yok, ama dosyalar birikip de çakışma yaşanacaksa siz sadece "(1)" gibi rasgele bir isim verirsiniz, taşıma koduna yeni bir satır eklenip "(" ile başlayan kısım isimden çıkarılıp otomatik isimlendirmeyle devam edilebilir