title: copy rows to a new worksheet VBA
body: <p>I am trying to write a script which copies a row from Sheet 1 to Sheet 2, 
  if the value for  the first column of Sheet 1 is greater or equal to 10. </p>
  
  <pre><code>Sub Macro1()
  
  Cells(1, 1).Select
  For i = 1 To ActiveCell.SpecialCells(xlLastCell).Row
  
      Cells(i, 1).Select
  
      If ActiveCell.Value &gt;= 10 Then
          Rows(ActiveCell.Row).Select
  
          Rows(i &amp; ":").Select
          Selection.Copy
  
          Sheets("Sheet2").Select
          ActiveSheet.Paste
  
          Sheets("Sheet1").Select
  
       End If
  
  Next i
  
  End Sub
  </code></pre>