title: Nothing happened when running the code
body: <p>I get nothing from this statement and I'm very new to VBA in Excel. Please help me understand why. </p>
  
  <pre><code>Sub Import()
  
  Dim i As Integer
  
  For i = Range("A" &amp; Rows.Count).End(xlUp).Row To 1 Step -1
  
     If sheet1.Cells(i, 1).Value &gt; 99 And sheet1.Cells(i, 1).Value &lt; 10000 Then
     sheet1.Range("A" &amp; i).Copy
     Sheet2.Range("A" &amp; i).PasteSpecial
  
     End If
  
  Next i
  
  End Sub
  </code></pre>
  
  <p>Thank you beforehand</p>