I have a macro with an if/then that puts header rows before all the sorted
departments except it doesn't do the last row. After the if/then block I
want to put in a header row on the first row with the department name in cell
block (1,17)
I have this but the insert doesn't work exactly right. I don't want it to
wipe out row one just put a gray header row above it. I almost got it.
Thanks,

..Rows(1).Insert.before
..Cells(1, 4).Value = .cells(1,17)
..Cells(1, 4).Font.Bold = True
..Cells(1, 4).Font.Size = 14
..Cells(1, 4).RowHeight = 18
..cells(1,4).Font.color = vbWhite