title: Excel macro to move rows based on cell criteria without moving the formatting
body: <p>I'm using the following macro to move rows from one sheet to another. This part works like a charm. What I'm trying to figure out is how to do this without affecting my conditional formatting.</p>
  
  <pre><code>Sub MoveCompleted()
  
      Dim h As Variant
      Dim endrow As Integer
      Dim OL As Worksheet, Cmp As Worksheet
  
      Set OL = ActiveWorkbook.Sheets("Open_Log")
      Set Cmp = ActiveWorkbook.Sheets("Completed")
  
      endrow = OL.Range("A" &amp; OL.Rows.Count).End(xlUp).Row
  
      For h = 2 To endrow
          If OL.Cells(h, "H").Value = "COMPLETE" Then
             OL.Cells(h, "H").EntireRow.Cut Destination:=Cmp.Range("A" &amp; Cmp.Rows.Count).End(xlUp).Offset(1)
          End If
      Next
  End Sub
  </code></pre>
  
  <p>I have images to post including my formatting but my rep is too low on this site to post them. </p>
  
  <p>Quick example:  </p>
  
  <p>before running macro the "Applies to" looks like: <code>=$A$12:$I$100000</code><br>
  after running the macro it looks like: <code>=$A$12:$I$63,$A$68:$I$100000</code></p>
  
  <p>leaving the gap(s) where the previously moved rows were.</p>