Merge cells next to cell

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

For Each cell In Range("F5:H" & Range("F" & Rows.Count).End(xlUp).Row)
    If cell = "** Conclusion" Then
    Range(ActiveCell.Offset(0, 1), ActiveCell.Offset(0, 2)).Select
    With Selection
       .MergeCells = True
    End With
    End If
Next cell

Thanks!

Maybe:

Sub mikey3580yy()
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(, 3), rcell.offset(, 4)).MergeCells = True
        Range(rcell.offset(, 5), rcell.offset(, 6)).MergeCells = True
    End If
Next rcell
End Sub

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/]

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