Merge cells with same number within specific column range.

[akima]

Hi Wizards,

Please can you help I am using this formula but I need the cells that have the same value between E17 and E758 merged not the whole column.

Sub mergethem()
Dim x As Long
Application.DisplayAlerts = False
For x = Range("E" & Rows.Count).End(xlUp).Row To 1 Step -1
If Range("E" & x) = Range("E" & x - 1) Then Range("E" & x - 1).Resize(2).Merge
Next x
Application.DisplayAlerts = True
End Sub

Thank so much once again