Correct word wrap issues in data imported from a text file

Try this:

Sub x()
    Dim iRow As Long
    
    iRow = 2
    Do
        'Cells(iRow, "A").Select
        Do While IsEmpty(Cells(iRow + 1, "A"))
            With Cells(iRow, "B")
                If IsEmpty(.Offset(1).Value) Then Exit Do
                .Value = .Value & " " & .Offset(1).Value
                .Offset(1).EntireRow.Delete
            End With
        Loop
        iRow = iRow + 1
    Loop Until IsEmpty(Cells(iRow + 1, "B"))
End Sub

Worked fine for the first 2400 rows then stopped. Tried running again but no results. Any suggestions?

Got a blank in column B?

No blanks in B all the way to the end of the file.

Took the problem home over the weekend and ran it through my computer which handled the complete file with no hiccups. Guess my work computer just isn't up to the task.

We are all pleased to have been of service ...