Find Value - Merge the 15 cells to the right

[jwb1012]

Hello, I am using the code below to loop through all of my sheets, find the sheets that are named "Labor BOE...", then find the text "Method of Quoting:" within column B, and resize this row.

I was also hoping to merge the 15 cells to the right... so this would mean it would find "method of quoting:", and merge column C-Q of this row.

Any thoughts? Thank you in advance for any thoughts/guidance/support.

Sub EnlargeMethodOfQuoting()
Dim Sh As Worksheet
Dim x As Integer
Dim End_Row As Integer
    For Each Sh In ActiveWorkbook.Sheets
        If Left(Sh.Name, 9) = "Labor BOE" Then
                
        Dest_Lastrow = Sh.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count
        Dest_LastColumn = ActiveSheet.UsedRange.Column - 1 + ActiveSheet.UsedRange.Columns.Count
                
            For lRow = Dest_Lastrow To 3 Step -1
                With Sh.Cells(lRow, "B")
                    On Error Resume Next
                        .Find("Method of Quoting:", , xlValues, xlWhole).RowHeight = 100
                    On Error GoTo 0
                End With
                
            Next lRow
        End If
    Next Sh
End Sub