title: VBA Excel How to insert a predetermined row of headers
body: <p>I'm having a hard time looking up what I am trying to do because I am having a hard time putting what I am trying to do into words.</p>
  
  <p>Basically, what I am trying to do is take a set of headers (maybe 10-12 columns long) and, in a macro, I want to paste those headers over (replace) the current headers in row 1 of sheet 1. The way I currently have things set up is that my data is being inserted starting at row 2 of every sheet when that sheet is generated. I have a macro written that will copy row 1 of sheet 1 into every existing sheet, however, I need to not have to manually insert the first sheet's headers (it should be part of the macro).</p>
  
  <p>So I guess I need assistance in how to insert a row of predetermined headers over row 1 of sheet 1 ( I want to write the actual header names into the macro code).</p>
  
  <p>EDIT:</p>
  
  <pre><code>Application.CutCopyMode = True
  
  Dim Counter As Long
  
  Counter = Sheets.Count
  For i = 1 To Counter
      Sheets("Sheet1").Cells(1, 1).EntireRow.Copy
      Sheets(i).Cells(1, 1).PasteSpecial
  
  Next i
  
  Application.CutCopyMode = False
  </code></pre>
  
  <p>This what I have for copying code across and this works fine. What I want is to be able to put in a line of code that basically says 'Paste "Header 1" "Header 2"  "Header 3" etc' into the corresponding columns of row 1 sheet 1. So I have my header names already picked out but I want to put them directly into the macro code. So if my headers are Apply Banana Lettuce Tomato, I want to put those words into the macro code and have them pasted in sheet 1 row 1 before my copy-paste code listed above.</p>