Macro to insert rows after each grouping

[howard]

I have data in a spreadsheet and new a row to be inserted after each grouping in col A.

For eg if A1 contains BEE A2 BEE A3 BEE A4 Apples A5 Apples, then I need a row to be inserted after the last item containing BEE, Apples etc in other words I want to seperate the different Groups

See example below of what sheet must look like

your assistance will be most appreciated

spaces+macro (2).xls
	A	B	C	D
1	bee	1
2	bee	2
3	bee	3
4
5	apple	7
6	apple	8
7	apple	9
8	apple	9
9	apple	9
10	apple	9
11
12	happy	9
13	happy	9
14
15	jen	9
16
17	kite	9
18
Sheet1

 

[Sandeep Warrier]

Should solve your problem...

Sub insertrows()
 
    Range("A1").Select
    
    While ActiveCell.Value <> ""
    
        If ActiveCell.Value <> ActiveCell.Offset(1, 0).Value Then
        
            ActiveCell.Offset(1, 0).Select
            ActiveCell.EntireRow.Insert Shift:=xlDown
            
        End If
    
        ActiveCell.Offset(1, 0).Select
        
    Wend
 
End Sub

 

[howard]

Hi Sandeep

Thanks for all the help. Much appreciated

Regards

Howard