How to Concatenate Multiple Rows with Conditions?

[SiddharthB]

[TABLE="class: grid, width: 500, align: center"]
<tbody>[TR]
[TD]Code No.[/TD]
[TD]Sr. No[/TD]
[TD]Customer[/TD]
[TD]Description[/TD]
[TD]List[/TD]
[TD]IF (code)[/TD]
[TD]IF (sr. no)[/TD]
[TD]sum[/TD]
[TD][/TD]
[TD]Textjoin (Description)[/TD]
[/TR]
[TR]
[TD]1
[/TD]
[TD]1[/TD]
[TD]ABC[/TD]
[TD]sentence[/TD]
[TD]x[/TD]
[TD]1[/TD]
[TD]1[/TD]
[TD]2[/TD]
[TD]1[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]2[/TD]
[TD]2[/TD]
[TD]EFH[/TD]
[TD]sentence[/TD]
[TD]x[/TD]
[TD]1[/TD]
[TD]1[/TD]
[TD]2[/TD]
[TD]2[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]3[/TD]
[TD][/TD]
[TD][/TD]
[TD]sentence[/TD]
[TD]x[/TD]
[TD]1[/TD]
[TD]0[/TD]
[TD]1[/TD]
[TD]2[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]4[/TD]
[TD]3[/TD]
[TD]PQR[/TD]
[TD]sentence[/TD]
[TD]x[/TD]
[TD]1[/TD]
[TD]1[/TD]
[TD]2[/TD]
[TD]3[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]5[/TD]
[TD][/TD]
[TD][/TD]
[TD]sentence[/TD]
[TD]x[/TD]
[TD]1[/TD]
[TD]0[/TD]
[TD]1[/TD]
[TD]3[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]6[/TD]
[TD][/TD]
[TD][/TD]
[TD]sentence[/TD]
[TD]x[/TD]
[TD]1[/TD]
[TD]0[/TD]
[TD]1[/TD]
[TD]3[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]7[/TD]
[TD]4[/TD]
[TD]SYZ[/TD]
[TD]sentence[/TD]
[TD]x[/TD]
[TD]1[/TD]
[TD]1[/TD]
[TD]2[/TD]
[TD]4[/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]x[/TD]
[TD]0[/TD]
[TD]0[/TD]
[TD]0[/TD]
[TD]4[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]8[/TD]
[TD]5[/TD]
[TD]LMO[/TD]
[TD]sentence[/TD]
[TD]x[/TD]
[TD]1[/TD]
[TD]1[/TD]
[TD]2[/TD]
[TD]5[/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]

I need to concatenate (with a line break) the multiple rows (in description column) for each customer having a serial no. so that in the Textjoin colum, there is only one row for each customer and that row has all the sentences (with a line break) in the description column pertaining to each customer.

Is this possible? Help! Thank you

 

[Fluff]

Hi & welcome to the board.
How about

Sub ConcatDel()
   Dim Rng As Range
   
   For Each Rng In Range("C:C").SpecialCells(xlBlanks).Areas
      Rng.Offset(-1, 7).Resize(1, 1).Value = Join(Application.Transpose(Rng.Offset(-1, 1).Resize(Rng.Count + 1)), Chr(10))
   Next Rng
   Range("C:C").SpecialCells(xlBlanks).EntireRow.Delete
End Sub