title: How to copy cells to last row and paste to another sheet?
body: <p>I have an ActiveSheet script, in where I take raw data move the data to rows Q:V. I have a VBA script that runs and shows where the last row is, in this case the last row is 77.</p>
  
  <pre><code>lastrow = .Cells(.Rows.Count, "Q").End(xlUp).Row
  </code></pre>
  
  <p>I want to have it where it takes from Q to V last row, copy, and paste it into sheet 1...</p>
  
  <p>I am guessing it will look like this, but I want to verify here first... since my normal sites I go to are down for maintenance for some reason. </p>
  
  <pre><code>Sub test()
           Dim wsPOD As Worksheet
      Dim wsPOT As Worksheet
      Dim wsPOA As Worksheet
      Dim cel As Range
      Dim lastrow As Long, i As Long, Er As Long
  
      Set wsPOD = Sheets("PO Data")
      Set wsPOT = Sheets("PO Tracking")
      Set wsPOA = Sheets("PO Archive")
  
          With ActiveSheet
              .AutoFilterMode = False
              Intersect(.UsedRange, .Columns("A")).Cut .Range("Q1")
              Intersect(.UsedRange, .Columns("D")).Cut .Range("R1")
              Intersect(.UsedRange, .Columns("C")).Cut .Range("S1")
              Intersect(.UsedRange, .Columns("B")).Cut .Range("T1")
              Intersect(.UsedRange, .Columns("G")).Cut .Range("U1")
              Intersect(.UsedRange, .Columns("F")).Cut .Range("V1")
              lastrow = .Cells(.Rows.Count, "N").End(xlUp).Row
              Intersect (.UsedRange.Range("Q:V" &amp; lastrow).Copy)
              Intersect (wsPOT.Range("B3:H" &amp; lastrow).PasteSpecialxlPasteFormats)
           End With
  End Sub
  </code></pre>
  
  <p>This obviously doesn't work, if someone can help me it be appreciated. </p>