Excel - macro para separar lineas en una celda

<script>

Public Sub CellSep()

On Error GoTo x

Dim sText As String, sSep As String, sData As String, sTarget As String

Dim Lineas() As String

Dim i As Integer, nPos As Integer

'Vars

sSep = ","

sText = ActiveCell ' celda activa donde se encuentre el texto a dividir

'get params

If sText <> Empty And sSep <> Empty Then

    'get split contents

    Lineas = Split(sText, sSep)

    'get positions

    For i = LBound(Lineas) To UBound(Lineas)

        sData = Trim(Lineas(i))

        sTarget = sTarget & vbNewLine & sData

    Next i

End If

'assigning result

ActiveCell = sTarget

'final message

MsgBox "Proceso finalizado", vbInformation, "Mensaje"

Exit Sub

x:

MsgBox "Error No: " & Err.Number & vbCrLf _

& "Mensaje:" & Err.Description, vbCritical, "Mensaje"

End Sub

</script>