title: Copy header and range from one sheet to another
body: <p>I am trying to copy a header and a set of data to a new worksheet for printing.</p>
  
  <p>While I can copy the data fine the column widths are lost and running autofit on it again breaks the page. The column widths were set by hand manually when the page was originally designed.</p>
  
  <p>Currently I have:</p>
  
  <pre><code>Dim tmp As Worksheet
  Set tmp = Sheets.Add(after:=ActiveSheet)
  RD.Copy tmp.Range("A1") ' Range data (set elsewhere)
  RH.Copy tmp.Range("A1") ' Range header (set elsewhere)
  </code></pre>
  
  <p>I've tried using xlPasteSpecial and xlPasteAll but they give no difference while using the clipboard.</p>
  
  <p>What do I need to do to copy the cell widths across sheets?</p>