title: Select and extract row of data to another sheet
body: <p>I'm working with big worksheet containing stocks information, with columns organized like this :  </p>
  
  <pre><code>    ID     DATE       TIME     PRICE       QUANTITY    NBE
  </code></pre>
  
  <p>It goes on for 500k+ rows, and I have 10+ sheets to go through. I need to extract only the first two trade of each trading day, and create a new list on a new sheet (Sheet1). The first trade of every day is always at "09:00:00".</p>
  
  <p>So far I wrote this piece of code, in which I tried to copy the two lines I need and then paste them into Sheet1 thus creating the new list. It runs without errors, but nothing shows up...</p>
  
  <pre><code>Sub Macro1()
  
  i = 2
  Range("C2").Select
  Range(Selection, Selection.End(xlDown)).Select
  
  For Each Cell In Selection
   If Day(.Range("B" &amp; cRow).Value) &lt;&gt; Day(.Range("B" &amp; cRow - 1).Value) Then
      ActiveCell.EntireRow.Copy
      ActiveWorkbook.Sheets("Sheet1").Rows(i).Paste
      ActiveCell.Offset(1).Copy
      ActiveWorkbook.Sheets("Sheet1").Rows(i + 1).Paste
      i = i + 2
  End If
  Next Cell
  
  End Sub
  </code></pre>
  
  <p>Shouldn't i select and the copy paste the two rows together? Or is it possible to create a range consisting of 2 rows and 6 columns from the activecell and then copy paste that range? </p>
  
  <p>EDIT 1: It's not working.. I updated it like above, but I still get an error 438 here ActiveWorkbook.Sheets("Sheet1").Rows(i).Paste</p>
  
  <p>EDIT 2: I'm def a big noob. Just realized not every first trade was made at 9:00:00 so i need to select the row based on wether or not one day have passed, and select the first two. 
  Can I use this condition instead : If Day(Range("B" &amp; cRow).Value) &lt;> Day(Range("B" &amp; cRow - 1).Value) Then ? </p>