I need a program that searches down a column and identifies cells that have the same words and numbers in them that are adjacent to each other and joins them together through the merge tool i have something similar but i found it online and it only seems to do numbers and is very picky. Take a look and maybe you can tweak it.
Sub mergeAlike()
Application.DisplayAlerts = False
Set Rng = ActiveSheet.Range("C1:C30")
x = 1
y = 1
Do
Do While Rng.Cells(x, 1) = Rng.Cells(y, 1) And x <= Rng.Cells.Count
x = x + 1
Loop
If x - y > 2 Then
Range(Rng.Cells(x - 1, 1), Rng.Cells(y, 1)).Merge
End If
y = x
Loop Until y > Rng.Cells.Count
Application.DisplayAlerts = True
End Sub
Sub mergeAlike()
Application.DisplayAlerts = False
Set Rng = ActiveSheet.Range("C1:C30")
x = 1
y = 1
Do
Do While Rng.Cells(x, 1) = Rng.Cells(y, 1) And x <= Rng.Cells.Count
x = x + 1
Loop
If x - y > 2 Then
Range(Rng.Cells(x - 1, 1), Rng.Cells(y, 1)).Merge
End If
y = x
Loop Until y > Rng.Cells.Count
Application.DisplayAlerts = True
End Sub
