Merge cells next to cell

[mikey3580]

Hi,
Can anyone advise to help fix the below?

In Column F , G, and H (merged cells) there are multiple occurrences of the word "** Conclusion". What I would like to do is when each occurence is found, merge the two cells next to the occurence (columns I and J) and also merge the two cells next to the that (Columns K and L)

I have the following code, but I can't even get it to merge the two cells next to the first occurence of "** Conclusion" correctly

Please Login or Register  to view this content.

Thanks!

[daffodil11]

Try:

Please Login or Register  to view this content.

The G and H don't need to be spelled out. The content only exists in F.

[JOHN H. DAVIS]

Maybe:

Please Login or Register  to view this content.

[mikey3580]

You guys are great!! Both worked! Amended Johns just slightly as it was merging couple columns over! Great stuff!

Thank you both!!
[code]
Dim rcell As Range
For Each rcell In Range("F5:H" & Range("F" & Rows.Count).End(xlUp).Row)
If rcell.Value Like "** Conclusion" Then
Range(rcell.Offset(, 1), rcell.Offset(, 2)).MergeCells = True
Range(rcell.Offset(, 3), rcell.Offset(, 4)).MergeCells = True
End If
Next rcell
[code/]

[JOHN H. DAVIS]

You're welcome. If you are satisfied with the solutions provided please mark this thread as solved.