title: Transfer Data Row from Table to the bottom of another Table on different sheet
body: <p>I am trying to transfer a row of data from one table to a new row at the bottom of another table when a date is entered into the cell(Column &quot;AD&quot;).</p>
  <p>When I try, data is transferred to the row under the last row of the table.</p>
  <pre class="lang-vb prettyprint-override"><code>Sub TRANSFER_DATA()
  
  For Each Cell In Worksheets(&quot;Sheet1&quot;).Range(&quot;AD2:AD1000&quot;)
      If Cell.Value &gt; 0 Then
          matchRow = Cell.Row
          Rows(matchRow &amp; &quot;:&quot; &amp; matchRow).Select
          Selection.Cut
  
          Sheets(&quot;Sheet2&quot;).Select
          ActiveSheet.Range(&quot;A&quot; &amp; Rows.Count).End(xlUp).Offset(1).Select
          ActiveSheet.Paste
          Sheets(&quot;Sheet1&quot;).Select
      End If
  Next Cell
  End Sub
  </code></pre>