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

[Rick Rothstein]

Select the cell or cells that you want to split apart and then run this macro...

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)) = Application.Transpose(Sentences)
  Next
End Sub