title: I have Set range to Last row and I want to copy it
body: <p>I have a set of range (headers) and for each column I'm trying to copy the cells (headers + 1 row offset) until last row and paste it to another worksheet. </p>
  
  <p>I've tried this:</p>
  
  <pre><code>Sub CopyandPaste
  
  Dim Lastrow as Long
  
  Lastrow = Worksheets("Sheet1").Range("A" &amp; rows.Count).End(xlUp).Row
  
  Set P = Application.InputBox("Code", "CODE", , , , , , 8)
  
  P.Columns(2).offset(1, 0).Select
  **From activecell to lastrow copy**
  Worksheets("Sheets2").Range("A2").PasteSpecial xlPasteValues
  
  
  P.Columns(3).Offset(1,0).Select
  **From activecell to lastrow copy**
  Worksheets("Sheets2").Range("C2").PasteSpecial xlPasteValues
  
  End Sub
  </code></pre>
  
  <hr>
  
  <p>Also, if I do a loop, can you please tell me how I can approach it? Basically the idea is to copy a set range and paste it to a new worksheet with a blank column in between. </p>