estimados compañeros del foro, si son tan amables de darme sugerencias con una macro,a la cual para mi gusto no le falta nada mas que al copiar a otra carpeta,esta no pierda el ancho de las columnas.

esta es mi macro:

Sub Salvar()

mio = ActiveWorkbook.Name

ruta = ActiveWorkbook.Path

Workbooks.Add

otro = ActiveWorkbook.Name

Workbooks(mio).Activate

nombre = Range("E4").Value

Range("A1:K63").Copy

Workbooks(otro).Activate

Sheets(3).Select

Range("a1").Select

ActiveSheet.Paste

ActiveWorkbook.SaveAs ruta & "\" & nombre

ActiveWorkbook.Close False

MsgBox "proceso terminado. El archivo se ha guardado en la carpeta: " & ruta & " con el nombre " & nombre

Range("E4").Value = Range("E4").Value + 1

End Sub

Prueba añadiendo:

[COLOR=#333333]ActiveSheet.[/COLOR]Cells.EntireColumn.AutoFit[/CODE]

Después del .Paste