Macro que guarda hoja activa en archivo nuevo pero me lo sobreecribe

Tengo una macro que me guarda la hoja activa en una carpeta, hasta ahi todo bien. Me lo guarda con el nombre que quiero, en la ruta que quiero, todo excelente, pero lo que quiero es volver a guardar el archivo pero sin que me lo sobreescriba.

Quiero que el archivo se me guarde con la feche de hoy pero en diferentes versiones, por ejemplo 15-12-16 version1. Y cuando vuelva a guardar version2. O si fuera posible con la hora ejemplo. 15-12-16 14-05. Pero no logro hacerlo, ¿alguien me podria ayudar? Dejo abajo la instruccion de la macros

Sub GUARDARENNUEVO()
mio = ActiveWorkbook.Name
nombre = Range("a1").Value
ruta = "C:\Users\jjssrr\Desktop\Recoleccion de Kanbans\"
Workbooks.Add
otro = ActiveWorkbook.Name
Workbooks(mio).Activate
Range("b1:l459").Copy
Workbooks(otro).Activate
Sheets(1).Select
Range("a1").Select
ActiveSheet.Paste
ActiveWorkbook.SaveAs ruta & nombre
ActiveWorkbook.Close False
MsgBox "Se ha grabado el siguiente archivo:" & Chr(13) & nombre
End Sub