title: Adding a yellow row vba code in excel
body: <p>I'm using the code below to insert and entire yellow row after a date change in my spreadsheet and it is working great however, I would now like to actually add the DAY in the yellow high-lighed row in column A corresponding with the date change. I would greatly appreciate any guidance.</p>
  
  <pre><code>   Dim iRow As Integer, iCol As Integer
  Dim oRng As Range
  
  Set oRng = Range("L7:L500")
  
  iRow = oRng.Row
  iCol = oRng.Column
  
  Do
  '
  
  If iRow = 500 Then
      End
  ElseIf Cells(iRow, iCol).Text = "" Then
      iRow = iRow + 1
  ElseIf Cells(iRow + 1, iCol).Text = "" Then
      If Left(Cells(iRow + 2, iCol), 14) &lt;&gt; Left(Cells(iRow, iCol), 14) Then
          Cells(iRow + 2, iCol).EntireRow.Insert shift:=xlDown
          Range(Cells(iRow + 2, 1), Cells(iRow + 2, 22)).Interior.Color = vbYellow
  '        Rows(iRow + 2).Interior.Color = vbYellow
          iRow = iRow + 3
      Else
          iRow = iRow + 2
      End If
  ElseIf Left(Cells(iRow + 1, iCol), 14) &lt;&gt; Left(Cells(iRow, iCol), 14) Then
      Cells(iRow + 1, iCol).EntireRow.Insert shift:=xlDown
      Range(Cells(iRow + 1, 1), Cells(iRow + 1, 22)).Interior.Color = vbYellow
  '    Rows(iRow + 1).Interior.Color = vbYellow
      iRow = iRow + 2
  Else
      iRow = iRow + 1
  End If
  '
  Loop
  End Sub
  </code></pre>