I have code that did concatenated the results into a column only if there were spaces between the description. Now the data is changed and there are no longer any more spaces. Here is the code:
Sub Concatenate()
'Concatenate Rows
Dim Rng As Range
Dim x As Long
Dim y As Integer
Dim Txt As String
' *** Change column and starting row to suit ***
Set Rng = Range("D3:D" & Range("D65536").End(xlUp).Row)
x = 1
y = 1
Do
Txt = Rng.Cells(x, 1)
Do
If IsEmpty(Rng.Cells(x, 1).Offset(y, 0)) Then
Rng.Cells(x, 1).Offset(0, 4) = Txt
x = x + y + 1
y = 1
Exit Do
Else
Txt = Txt & Rng.Cells(x, 1).Offset(y, 0)
y = y + 1
End If
Loop
Loop While x <= Rng.Rows.Count
Range("A:A").SpecialCells(xlBlanks).EntireRow.Delete
Range("H2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Cut
Range("D2").Select
ActiveSheet.Paste
End Sub
Now i want to modify this code to concatenate to the previous row if a cell in column B is empty.