Thanks for sending me the file. I can reproduce the problem with my Excel 2016/Office 365 64-bit.
Excel cells can hold a maximum of 32,767 characters. Your problem server has 86,510 characters worth of software. I am guessing an overflow occurs that results in the loss of your data.
To test this hypothesis, I modified the code to truncate the software list to the first 32,767 characters. Now the macro seems to work.
Sub Sequelize()
Dim rg As Range
Dim delimiter As String, s As String
Dim i As Long, k As Long, n As Long, nData As Long
Dim vData As Variant, vResults As Variant
delimiter = ", "
Set rg = Range("A2").CurrentRegion
Set rg = rg.Offset(1, 0).Resize(rg.Rows.Count - 1, rg.Columns.Count)
n = rg.Rows.Count
nData = Application.CountA(rg.Columns(1))
vData = rg.Value
ReDim vResults(1 To nData, 1 To 2)
For i = 1 To n
If vData(i, 1) <> "" Then
k = k + 1
vResults(k, 1) = vData(i, 1)
If s <> "" Then
If i > 1 Then vResults(k - 1, 2) = Left$(s, 32767)
End If
s = IIf(vData(i, 2) = "", "", vData(i, 2))
Else
If vData(i, 2) <> "" Then
If s = "" Then
s = vData(i, 2)
Else
s = s & delimiter & vData(i, 2)
End If
End If
End If
Next
If s <> "" Then vResults(k, 2) = Left$(s, 32767)
rg.ClearContents
rg.Resize(nData, 2).Value = vResults
End Sub
Please try running the revised macro on your full dataset. If it works, we can then shift discussion to how best to handle the text in the overflow. Perhaps additional columns or rows?
