title: Select Headings of selection(s) to be union with the selection(s) itself?
body: <p>By using manual selection(s) , I copy range(s) from workbook to another workbook. <br>
  But, how to select the headings of this selection(s) to be union with the selection itself , to fulfill copy and paste in one shot. <br>
  <strong>Headings</strong> are found on first row.<br> e.g, <strong>contiguous selection</strong> if I selected Range <code>“B3:D5”</code> , subsequently I need to select <code>”B1:D1”</code> and <code>union</code> with Range <code>“B3:D5”</code>. <br>
  e.g, <strong>non-contiguous selection</strong> if I selected Range <code>“B3:D5,F3:F5”</code> , subsequently I need to select <code>”B1:D1,F1”</code> and <code>union</code> with Range <code>“B3:D5,F3:F5”</code> <br>
  Copying of contiguous selection and non- contiguous selections (in the same rows) works without problem. <br>
  In advance, grateful for useful answer and comments. <br></p>
  <pre><code>Dim wb As Workbook: Set wb = ThisWorkbook    'Source Workbook
  Dim srg As Range: Set srg = wb.ActiveSheet.Range(Selection.Address)
  
  Dim wb1 As Workbook: Set wb1 = Workbooks.Add  'Destination Workbook
  Dim drg As Range: Set drg = wb1.Sheets(1).Range(&quot;A1&quot;)
  
  srg.Copy
  drg.PasteSpecial Paste:=xlPasteColumnWidths
  srg.Copy drg      
  
  Dim r As Range
    For Each r In drg.Rows
    r.WrapText = True
      If r.RowHeight &lt; 40 Then r.RowHeight = 40  
         Next r
  </code></pre>