Estoy tratando de unir celdas en una fila si existe un valor en una celda en esa fila.

Los datos se importaron de un archivo .txt y varios subtítulos se dividen en 2, 3 o 4 columnas.

Las celdas no pueden fusionarse ya que los datos solo se guardarán desde la primera celda.

Las únicas palabras que siempre son constantes son "contener" y "para" en la columna B.

Lo que he intentado se parece a esto:

Si la celda. Valor como "Contiene"o"para"luego unir todas las celdas de la columna" A "a la columna" H "en la columna" B ", alinearlas centralmente y ponerlas en negrita.

Gracias de antemano por cualquier ayuda.

Editar Aquí está el código:

    Sub Joining()
    Dim N As Long, i As Long, r1 As Range, r2 As Range
 Dim z As Long
 Dim arr() As Variant
 z = 1

With Activesheet
    N = .Cells(Rows.Count, "A").End(xlUp).Row
    For i = 1 To N
        If .Cells(i, "B").Value Like "Summary*" Then
            arr = .Range(.Cells(i, "A"), .Cells(i, "H")).Value
            .Cells(z, "B").Value = Join(arr, " ")
            z = z + 1
        End If
    Next i
End With

End Sub