Copy and Save with VBA keep source coloumn widht and row height. is possible?

[pasaico]

I'm trying to copy the contents of a sheet into a new .xlsx document.
I can not keep source coloumn widht and row height.

For i = 1 To wksht.Range("A" & wksht.Rows.Count).End(xlUp).Row
        Set wb = Application.Workbooks.Add
        dataRange.Copy wb.Sheets(1).Range("A1", wb.Sheets(1).Cells(dataRange.Rows.Count, dataRange.Columns.Count))
        wb.SaveAs filename:=path & wksht.Range("A" & i).Value & ".xlsx"
        wb.Close
    Next i

Left is SOURCE --------> RIGHT is COPY/PASTE from code VBA above

 

[pasaico]

Glad to help & thanks for the feedback

I have put this macro (above) in a file.xlsm , then i have add this marco in customize ribbon, every time I run it with the button on the ribbon, the macro works on other my document.xlsx but the file.xlsm always opens....How can I avoid this?

 

[Fluff]

The code can only run if the workbook containing the code is open.