title: Looping through and Copying/Pasting rows VBA
body: <p>I am looking to write a simple macro in xl VBA which loops through cells A1:A100 and; </p>
  
  <ol>
  <li>Finds each cell with the value "HT"</li>
  <li>Copies that entire row</li>
  <li>Selects sheets "Records" - travels to the bottom of column A - pastes copied row</li>
  <li>Loops</li>
  </ol>
  
  <p>Here is my attempt - I'm struggling to get this to work and have been googling all sorts of different methods but can't seem to work it! </p>
  
  <p>Private Sub CopyRow()</p>
  
  <pre><code>Dim i As Range
  Sheets("Input").Select
  Range("A1").Select
  
  For Each i In Sheet9.Range("A2:A1000")
      Select Case i.Value
          Case "HT"
              Rows(ActiveCell.Row).Copy
              Sheets("Records").Select
              Range("A2").End(xlDown).PasteSpecial xlPasteValues
              Sheets("Input").Select
  
              Case Else
  
          End Select
  
      Next i
  </code></pre>
  
  <p>Appreciate any help you can give me! </p>