Weird one, I insert rows after new data set but.........

[cizzett]

Is it possible to insert the row as a merged range from column 1-7 (A:G) and set it to black fill with white bold text?

This is what im currently using but I am not sure how to integrate it since the blank row location will be dynamic depending on the data

Sub IRCV()

   Dim lRow As Long
   For lRow = Cells(Cells.Rows.Count, "D").End(xlUp).Row To 2 Step -1
      If Cells(lRow, "D") <> Cells(lRow - 1, "D") Then Rows(lRow).EntireRow.Insert
   Next lRow
   
End Sub

 

[cizzett]

Basically I want to find any blank rows with data in the row below it and merge that row the width of the data (A:G) any ideas? Id really appreciate any advice, Ive found a lot of find blank rows etc but haven't quite been able to get anything to work.