Split the contents from single cell into multiple cell in excel 2010

[Rick Rothstein]

This revised macro should work for you...

Sub SplitSelectedCellsDown()
  Dim Cell As Range, Sentences() As String
  For Each Cell In Selection
    Sentences = Split(Cell.Value & vbLf, vbLf)
    Cell.Offset(1).Resize(UBound(Sentences)).Insert xlShiftDown
    Cell.Offset(1).Resize(UBound(Sentences)) = Application.Transpose(Sentences)
  Next
End Sub