Encuentra ruta aun cuando cambie directorio raiz

hola gente del foro,les hago la siguiente consulta:he visto un codigo,con el cual encuentra la ruta del archivo por mas que la cambie de dir o de pc y quiero grabarlo como un archivo pdf en el mismo dir y con el mismo nombre del archivo en uso (pero como pdf)adjunto ejemplo

 Range("A1:F16").Select 'aca elijo el rango que quiero "grabar"

    ActiveSheet.PageSetup.PrintArea = "$A$1:$F$16" 'esto tal vez no sea necesario

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

RUta = ThisWorkbook.Path & "\"  'asi hallo la ruta del archivo

    nombre = "Libro.pdf"  'Nombre del archivo(es necesario?)[/CODE]

Libro1.zip