auto merge adjacent cells into one if cell values are equal

Hello,

I am extremely new to VBA and I understand that merging cells is a poor design, however, it needs to be done in my case.

I am trying to create a macro that automatically merges two adjacent cells into one cell when both adjacent cells contain an equal value. Any help or guidance would be much appreciated.

It would be helpfull to have a sample workbook to work on. This way, we'll see where the data are and could come up with an effective macro to do this. Can you attach a workbook to this thread with some more details about which data to look at? It would be too long to scan all the cells in a sheet; we'dbetter to do this for a specific range of data only.
Regards
Pierre

Try this code:

Sub Merge_cells()
Dim C_ell As Range
For Each C_ell In Range("A1", Cells(Rows.Count, 1).End(xlUp))
If C_ell.Value = C_ell.Offset(0, 1).Value Then
    C_ell.Offset(0, 1).Value = ""
    Range(C_ell, C_ell.Offset(0, 1)).Select
    Selection.Merge
End If
Next
End Sub

You can change the range the macro looks at by replacing "A1" by the address of the upper left cell of your data and do not forget to also change the number 1 in Cells(Rows.Count,1) portion of the code with the first column number of your data.
Regards
Pierre