title: Deleting data (rows) after encounter a negative value
body: <p>I have the following problem:</p>
  
  <p>In the worksheet, there is a series of data of a tensile test.</p>
  
  <p>Up to to 3k (give or take) points only positive date values exists (data I need to plot,and do statistical analysis). Afterwards appears some negative points and them again some positive values with can be considered noise. e.g,</p>
  
  <pre><code> Line         A B C D
    1k          1 2 3 4
    2k          5 6 7 8 
    3k          9 1 2 3
    4k          1 2 3 -3
    5k          1 1 1 1
  </code></pre>
  
  <p>I would like to delete/clear the rows after the first negative value. (in this case from line 4k until the last row).</p>
  
  <p>I have a bit of code to identify the line were the first negative value appears. </p>
  
  <pre><code>Dim flag As Boolean
  Dim aux_linha As Integer
  Dim i As Integer
  
  flag = False
  i = 3
  While i &lt; 20000 And flag = False
  
  ' 5 is the column index from which to remove the noisy data
  
      If Cells(i, 5) &lt; 0 Then 
  
          flag = True
          aux_linha = i
      End If
      i = i + 1
  Wend
  
  Cells(4, 10) = aux_linha 'store the value
  </code></pre>
  
  <p>I tried to do a for cycle to delete the rows but it takes forever</p>
  
  <pre><code>For i = 1 To 10000 'excessive number of lines
      Rows(aux_linha).Row.Delete
  
  Next
  </code></pre>
  
  <p>Can anyone help to solve this problem?!</p>