Ayuda!!!!! guardar como pdf

buenas a todos me gustaria si me pueden ayudar con un problemita que tengo ocupo el siguiente macro para guardar como PDF un archivo de un campo determinado:
Sub GUARDAR_PDF()
Range("B1:I36").Select
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\registros\reg.pdf" & nombre, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False
End Sub
el macro funciona perfecto para el que lo quiera lo unico que tiene que hacer es cambiar el rango y la ruta.. el problema es que ME SOBREESCRIBE EL ARCHIVO CADA VEZ QUE LO OCUPO.. Y YO NECESITO QUE SE ACUMULEN LOS ARCHIVOS.. QUE TENDRIA QUE AGREGAR PARA PODER SOLUCIONAR ESTO..Gracias a todos