Quiero que se guarde con todo y el formato de columnas y fil

[JOQUIPI]

Buenas tardes agradeceria me puedan ayudar

tengo esta macro

Sub AEXCEL()
mio = ActiveWorkbook.Name
nombre = Range("C7").Value
ruta = "\\Toshiba-pc\d\SISTEMA\COTIZACIONES\COTIZACION N°201701-"...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Héctor Miguel]

1) después de la línea con el "Range("A1").Select" agrega esta otra línea:

  range("a1").pastespecial xlpastecolumnwidths

2) después de la línea con el "ActiveSheet.Paste" agrega esta...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí