Separate excel cell data into rows

[westconn1]

here is some other code to do the same thing

arrdata = Split(Range("B2").Value, vbNewLine)
Range("c2:c" & UBound(arrdata) + 2) = WorksheetFunction.Transpose(arrdata)