Concatenate Text in Column B Split in Multiple Rows for Each Number in Column A

Dear Seniors,

I want to Concatenate the Text in Column "B" which is split across several rows, I want to do this for Each Number in Column




Thank you

For this scenario...

Sub sintek()
With Range("E1:E" & Cells(Rows.Count, 1).End(xlUp).Row)
    .Formula = "=IF(A1="""","""",IF(A2<>"""",B1,B1&"" ""&B2))"
    .Value = .Value
    .SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
End With
End Sub

If there is more than 1 blank row between data...

Sub sintek()
Dim Data, Temp, i As Long, ii As Long
Data = Cells(1).CurrentRegion.Value
ReDim Temp(1 To UBound(Data))
For i = LBound(Data) To UBound(Data)
    If Data(i, 1) <> "" Then
        ii = ii + 1
        Temp(ii) = Data(i, 2)
    Else
        Temp(ii) = Temp(ii) & " " & Data(i, 2)
    End If
Next i
Range("E1").Resize(ii) = Application.Transpose(Temp)
End Sub

.........................
THANKS.gif