title: excel vba insert row and change color
body: <p>I need to change the color of a row ( or cells A thru H in specific row), that has been inserted by the macro code below. The if statement that scans Col H, is where the color change needs to happen. </p>
  
  <pre><code>Sub SolidWorks()
  
  Application.ScreenUpdating = False
  
  Range("A100000").End(xlUp).Activate
  Range("N1") = ActiveCell.Row
  
  For lrow = Cells(Cells.Rows.Count, "B").End(xlUp).Row To 1 Step -1
  If Cells(lrow, "B") = 0 Then
              Rows(lrow).EntireRow.Delete
  End If
  Next lrow
  
  For lrow = Cells(Cells.Rows.Count, "H").End(xlUp).Row To 1 Step -1
      If Cells(lrow, "H") &lt;&gt; Cells(lrow - IIf(lrow = 1, 0, 1), "H") Then
              Rows(lrow).EntireRow.Insert  '&lt;---- insert green row, instead of just a blank row
  '.Color = 5287936
  '                With Selection.Interior
  '                .Pattern = xlSolid
  '                .PatternColorIndex = xlAutomatic
  '                .Color = 5287936
  '                .TintAndShade = 0
  '                .PatternTintAndShade = 0
  '                End With
      End If
  Next lrow
  
  For lrow = Cells(Cells.Rows.Count, "G").End(xlUp).Row To 1 Step -1
      If Cells(lrow, "G") &lt;&gt; Cells(lrow - IIf(lrow = 1, 0, 1), "G") Then
              Rows(lrow).EntireRow.Insert
      End If
  Next lrow
  
  Range("A1").Select
  
  Application.ScreenUpdating = True
  
  End Sub
  </code></pre>