VBA copying and pasting values and ColumnWidths together

Question

The issue is to paste the copied range into another sheet with the original format (e.g.source columns width to the target column). I have tried to include the code "Paste:=xlPasteColumnWidths" in combination with "Paste:=xlPasteValues". But it wasn't successful. For example, by writing ".PasteSpecial xlPasteColumnWidths" only yields no copied values.

  With wq.Sheets("Table 5").Range("A1:W51").Copy
  End With

  With ws.Range("A6")
 .PasteSpecial xlPasteColumnWidths
  End With

Possible duplicate of Error on "xlPasteColumnwidths" and can my code be more efficient? — Olly

Yavuz Topal Yavuz Topal · Accepted Answer · 2018-11-05T13:36:18

The answer to my question is:

 With wq.Sheets("Table 5").Range("A1:W51").Copy
 ws.Range("A01").PasteSpecial xlPasteAll
 ws.Range("A01").PasteSpecial xlPasteColumnWidths
 ws.Range("A:W").EntireRow.AutoFit
End With

VBA copying and pasting values and ColumnWidths together

1 Answers