title: macro taking long time to run
body: <p>I have this macro that is moving data from one column to another, this macro takes long time to run(approx. 25-30 mins). the data in excel sheets is about 200,000 rows. since I have around 500 excel sheets , if it run this slow it can takes me weeks to clean files, is there a better way to do similar thing that can takes less time.</p>
  
  <pre><code>Sub J_PriceAdjust()
  
   Dim J As Range
   Dim r As Range
  
   Set J = Intersect(ActiveSheet.UsedRange, Range("J:J"))
  
    ' Working on Column J
  
   For Each r In J
      If Left(r.Text, 4) = "Page" Then
          r.Copy r.Offset(0, 2)
          r.Clear
      End If
  Next r
  
  For Each r In J
      If Left(r.Text, 6) = "Amount" Or Left(r.Text, 1) = "$" Or Left(r.Text, 1) = "(" Then
          r.Copy r.Offset(0, 1)
          r.Clear
      End If
  Next r
  
  ActiveWorkbook.Save
  
  End Sub
  </code></pre>