The code is working perfectly on my computer.
But, on the one user computer it's generate an error message: "Rin-time
error '1004'. This operation requires the merged cells to be identically
sized'

Worksheets("Sheet").Range("B4").Sort _
Key1:=Worksheets("Initiatives").Columns("B"),
Order1:=xlAscending, _
Header:=xlGuess

Could anybody help me on it?

Thanks