Macro(excel 2003) para copiar un rango de celdas a otro libro manteniendo alto de filas.

Buenas,

estoy rompiéndome la cabeza para hacer una macro que al copiar un rango de celdas de una hoja a otra de otro libro me mantenga el alto de las filas y el ancho de las columnas (esto último ya lo he conseguido). Esto es lo que he hecho hasta ahora:

Sub GUARDAR()
Dim Ruta As String, Archivo As String
Ruta = "D:\CNAV\Archivo_fichas\2012\"
Archivo = Format(Range("F6") & "_PRE" & ".xls")
Range("A4:R36").Select
Selection.Copy
Workbooks.Add
Sheets("Hoja1").Select
'Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveSheet.Paste
ActiveWorkbook.SaveAs Filename:=Ruta & Archivo, FileFormat:=xlNormal, CreateBackup:=False
End Sub

Me podéis ayudar??

mil gracias!