Guardar libro nuevo

hola buenas dartes mil disculpas por la molestia me podria a ayudar a mejorar esta macro lo que quiero hacer guardar un copia el libro de trabajo con el nombre de una cela pero que en ese libro me guarde solo un rango de determinado este es el codigo que estoy trabajndo pero me falta determinar el rango
Sub archivo()
nbre = Range("a1")
ruta = "C:\Users\Alexis Leiva\Desktop\ESCAN"
ActiveWorkbook.SaveCopyAs ruta & "\" & nbre & ".xls"
End Sub