Simple Merge Cells (Macro)

Hi,

Please i want some help to do one simple macro;

i have this table

eee1 eee2
1 a
1 a
1 b
1 b
1 c
1 c
1 e
1 e
1 e
1 e

and i want the macro to do the following output;

eee1 eee2
1 a
1
1 b
1
1 c
1
1 e
1
1
1

as rows A2,3 showing merged cells in column B as "a" in merged rows B2,3

it is big excel sheet, i mean the column B is very long and i need to merge sometimes 2,3.....20 cells togather.

please help

thanks for your reply, please find attached file as requested

hi patel,

i used it in the same file and its working fine, but in another file no, i attached again a sample of the file which i want (2 sheets).

can u please give me the code again?

thanks a lot.

any help plz?

any one can help plz?

ok thanks

i did it

try

Sub test()
    Dim myAreas As Areas, myArea As Range
    Sheets("old").Cells.Copy
    With Sheets.Add
        .Cells(1).PasteSpecial
        With .Cells(1).CurrentRegion
            With .Columns(1)
                Set myAreas = .SpecialCells(4).Areas
                .VerticalAlignment = xlCenter
            End With
            For Each myArea In myAreas
                myArea.Cells(0).Resize(myArea.Rows.Count + 1).Merge
            Next
            .AutoFilter
        End With
        .Cells(1).Select
    End With
End Sub