title: VBA code using "Cells(Rows.count).Row).End(xlUp)" fails after 263 iterations
body: <p>I am using a Sub of the form:</p>
  
  <pre><code>If Not Intersect(Target, Sheets("Sheet1").Range("A1")) Is Nothing Then (+ code)
  </code></pre>
  
  <p>in conjunction with:</p>
  
  <pre><code>Sheets("Sheet2").Range ("A1" &amp; Cells(Rows.Count).Row).End(xlUp).Offset(1, 0).Value = Sheets("Sheet1").Range("A1").Value
  </code></pre>
  
  <p>with the intention of copying data from a cell (e.g. A1) on Sheet1, which changes frequently, to a column (e.g. A:) on Sheet2.</p>
  
  <p>This works fine for the first 263 iterations (it is always 263 regardless of the time intervals), but then on the 264th, instead of copying the next value to the next empty cell in the column, it continuously overwrites the value in cell A2. This is unfortunate, as I need to record at least 600 values.</p>
  
  <p>I am using Excel 2013 under Windows 10.</p>