title: What update can be done to the Sub to begin copying at the header?
body: <p>This Sub below copies a sheet from another sheet.  Teh length is variable so I have used LastRow.  I would like to update the Sub to not copy the whole sheet but copy from the header in wb2 to the last row of data.  The header display on  a different row each time.  The Column header in column "A" is "Client". The header in the last column is "Last" </p>
  
  <p>Sub CopySheetsl_()</p>
  
  <pre><code>Set wb1 = Workbooks("macro..xlsm")
  Set wb2 = Workbooks.Open("L:\ Report.xlsx")
  
   LastRow = wb2.Sheets("Page1_1").range("A:Y").Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
  
   wb1.Sheets("Carrier").range("E1", "BU1" &amp; LastRow) = wb2.Sheets("Page1_1").range("A1", "BQ1" &amp; LastRow).value ' CopySht 'Range("A11", "I11" &amp; LastRow).Value
  
   wb1.Close
   wb2.Close
  </code></pre>
  
  <p>End Sub</p>