title: Excel: Copy header row from one spreadsheet to another
body: <p>Currently I have the below:</p>
  
  <pre><code>Sub CopyHeaders()
  
  Dim rngSource As Range
  Dim rngDestination As Range
  
  Sheets("BGC").Select
  Set rngSource = Range(Cells(1, 1), Cells(1, Range("A1").End(xlToRight).Column))
  rngSource.Copy
  
  Sheets("Promoter").Select
  Set rngDestination = Range("A1").End(xlToRight).Offset(0, 1)
  
  rngDestination.Select
  ActiveSheet.Paste
  End Sub
  </code></pre>
  
  <p>This takes the header row from worksheet <strong>BGC</strong> and copies it to worksheet <strong>promoter</strong></p>
  
  <p>However, let's sat BGC had this data in the first row (C is missing i.e. a blank cell):</p>
  
  <pre><code>A   B       D
  </code></pre>
  
  <p>Promoter had:</p>
  
  <pre><code>1   2       4
  </code></pre>
  
  <p>Running this could would give:</p>
  
  <pre><code>1   2   A   B
  </code></pre>
  
  <p>However I'd want:</p>
  
  <pre><code>1   2       4    A  B       D
  </code></pre>
  
  <p>Any advice?</p>
  
  <p>Thanks</p>