title: Delete fields less than a specific value VBA
body: <p>I have the following column in excel </p>
  
  <pre><code>Sales Record Number
  5100
  5275
  5310
  5355
  5357
  5359
  15
  Seller ID: 233
  </code></pre>
  
  <p>I need VBA code to only show the rows greater than the value of 5000 so 'sales record number, '15' &amp; "Seller ID" should be deleted. </p>
  
  <p>I have tried the following:</p>
  
  <pre><code>Sub DeleteRows()
      Application.ScreenUpdating = False
      Application.Calculation = xlCalculationManual
      Dim i As Long
      For i = Range("A" &amp; Rows.Count).End(xlUp).Row To 1 Step -1
          If Not (Range("C" &amp; i).Value &lt; 5000) Then
              Range("C" &amp; i).EntireRow.Delete
          End If
      Next i
      Application.Calculation = xlCalculationAutomatic
      Application.ScreenUpdating = True
  End Sub
  </code></pre>