Formulas or Conditional Formatting cannot insert a row.

To actually insert a row at each change in Dept. would require a macro.

This one inserts a row at each change in Column A

Sub InsertRow_At_Change()
Dim i As Long
With Application
.Calculation = xlManual
.ScreenUpdating = False
End With
For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
If Cells(i - 1, 1) < Cells(i, 1) Then _
Cells(i, 1).Resize(1, 1).EntireRow.Insert
Next i
With Application
.Calculation = xlAutomatic
.ScreenUpdating = True
End With
End Sub


Gord Dibben MS Excel MVP

On Mon, 19 Mar 2007 10:05:15 -0700, Jugglertwo
wrote:

I have a list that my boss wants to look "pretty." The boss really wants a
blank row after each of the various departments so that it is easier to read.
We have various co-workers and we frequently sort by dept. It is easier to
read with a blank row after each dept.

is there an easy way to have this happen?
I'm familiar with conditional formatting but not sure if I can get this
exact look.
Also, I'm playing with using the subtotalling feature and then using some
conditional formatting. This seems to work but maybe there is a quick way to
make this happen.

Any suggestions would be greatly appreciated !