An excel macro for splitting cell has multiple newlines into multiple rows

split_into_multi_rows.vba

Sub split_into_multi_rows()

'splits Text active cell
Dim splitVals As Variant
Dim totalVals As Long

splitVals = Split(ActiveCell.Value, Chr(10))
totalVals = UBound(splitVals)

'insert rows and delete active row
Dim counter
For counter = 0 To totalVals
    Rows(ActiveCell.Row + 1).Insert
    Rows(ActiveCell.Row + 1).Value = Rows(ActiveCell.Row).Value
    Cells(ActiveCell.Row + 1, ActiveCell.Column).Value = splitVals(totalVals - counter)
Next

Rows(ActiveCell.Row).Delete

End Sub