Inserting Formatted Row

I'm working with a line of code I can't seem to get right. I've got this string that will put breaks in, but I've realized it would make my life easier if the code, along with inserting a break, then inserted a formatted gray divider, it would make it easier. Here's what I have:

Sub BreakSections()
'This macro breaks the new data on sheets into their individual groups, inserting a blank line_
'which will need to be filled with a gray dividing line
Dim i As Long, j As Long
Application. ScreenUpdating = False
With Sheets("Contract Manufacturers")
. Cells.UnMerge
i = .UsedRange.Rows.Count
End With
For j = i To 2 Step -1
If Not IsEmpty(Cells(j, 5)) And Cells(j + 1, 5) <> Cells(j, 5) Then Rows(j + 1).Insert
Next
Application.ScreenUpdating = True
End Sub

I've tried then to put this code in after the Insert:

Range(ActiveCell, Range("AJ" & ActiveCell.Row)).Select

and then the formatting code.....

But I end up getting a whole mess of gray rows, displacing a lot of data. Is it possible to do these things together, or I should write another macro that just looks for the blank spots? It seems like it would be easier to do it all at once.