Add A Row Above Each Unique Value

[abhishek_singhal]

Hi All

I have a data set like this:-

Item Category	Item	Sales
Shoes	Sports Shoes	100
	Casual Shoes	200
Others	Sandals	300
	Slippers	400

<tbody>
</tbody>

I want a row after each unique value in column A along with unique cell value pasted in the new row. Like the below mentioned:-

Item Category	Item	Sales
Shoes
Shoes	Sports Shoes	100
	Casual Shoes	200
Others
Others	Sandals	300
	Slippers	400

<tbody>
</tbody>

I want a macro for this. Thanks in advance.

Abhishek

 

[NeonRedSharpie]

Sub insertRowAbove()

    For x = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
        If Cells(x, 1) <> "" Then
            Cells(x, 1).EntireRow.Insert Shift:=xlDown
            Cells(x, 1) = Cells(x + 1, 1)
        End If
    Next x
End Sub

 

[abhishek_singhal]

Thanks a ton! It worked awesome.