Automatically inserting blank lines

[Carol45]

I have a large document with employees names listed on several lines. Is there a formula or macro that can be written to have excel automatically insert a blank line when a new employee's name appears? For example, Davy Crockett appears for 3 lines, Suzy Jones for 2 lines and then another employee for maybe one line or possibly four lines. Is there a way to get excel to automatically insert a blank line when it comes to a new name?

 

[jbeaucaire]

Excel Workbook
	A	B
1	Names	Data
2	John	Data1
3	John	Data2
4	John	Data3
5	John	Data4
6	John	Data5
7	BOB	Data6
8	BOB	Data7
9	BOB	Data8
10	Jerry	Data9
11	Jerry	Data10
12	Jerry	Data11
13	Suzie	Data12
14	Suzie	Data13
15	Sandy	Data14
16	Sandy	Data15
17	Sandy	Data16
18	Sandy	Data17
19	Sandy	Data18
20	Phil	Data19
Before

Excel Workbook
	A	B
1	Names	Data
2	John	Data1
3	John	Data2
4	John	Data3
5	John	Data4
6	John	Data5
7
8	BOB	Data6
9	BOB	Data7
10	BOB	Data8
11
12	Jerry	Data9
13	Jerry	Data10
14	Jerry	Data11
15
16	Suzie	Data12
17	Suzie	Data13
18
19	Sandy	Data14
20	Sandy	Data15
21	Sandy	Data16
22	Sandy	Data17
23	Sandy	Data18
24
25	Phil	Data19
After

Option explicit

Sub AddBlanks()
'JBeaucaire  (9/11/2009)
Dim LR As Long, i As Long
LR = Range("A" & Rows.Count).End(xlUp).Row

    For i = LR To 3 Step -1
        If Cells(i, "A") <> Cells(i - 1, "A") Then _
            Rows(i).Insert xlShiftDown
    Next i

End Sub

 

[Carol45]

Thank you so much for your quick response. I'm not that familiar with creating formulas in Excel so can you explain exactly how this formula is entered. Is it some type of macro or other function?

 

[jbeaucaire]

How to use the macro:

1. Open up your workbook
2. Get into VB Editor (Press Alt+F11)
3. Insert a new module (Insert > Module)
4. Copy and Paste in your code (given above)
5. Get out of VBA (Press Alt+Q)
6. Save your sheet

The macro is installed and ready to use. Press Alt-F8 and select it from the macro list.

 

[Carol45]

Thanks for the explanation. I appreciate it.