Delimiting a Cell

Try this....
• Select your single-column list
• Data.Text-to-columns...Check: Delimited...Click: Next
...Check: Other....in the character box: Hold down CTRL and type J
...Click: Finish
Is that something you can work with?

Note: I corrected the above...Data.Text-to-columns was incorrectly entered as: Home.text etc

I think you'll need to post a sample workbook so we can figure out what's happening.

Hello, Click the "Parsed" button on the attached, then check "Sheet2" for the output.

Sub Macro1()

Dim cell As Range
Dim rng As Range

Set rng = Range("B1:B2000")

Dim ArrA As Variant
Dim k As Integer
Dim new_row As Long
new_row = 1     'Start row in Sheet2...

For Each cell In rng
    ArrA = Split(cell.Value, vbLf)  'Parse string by linefeed..
    k = UBound(ArrA)    'Get length of Array...
    
    If k < 0 Then new_row = new_row + 1     'If cell blank, add line...
    
    '####### Loop through array items...
    For i = 0 To k
        Sheets("Sheet2").Cells(new_row, 2).Value = ArrA(i)
        new_row = new_row + 1
    Next i
Next cell


MsgBox "Data parsed on Sheet2!"
End Sub