VBA for Line Break (Alt- Enter)

Just for fun.. without a loop..

Private Sub CommandButton1_Click()
 With Range("D1:D" & Range("D" & Rows.Count).End(xlUp).Row)
  .Offset(, 1).Resize(.Rows.Count) = Split(Chr(10) & Replace(Join(Application.Transpose(.Value), Chr(10)), Chr(10), Chr(10) & "|" & Chr(10)), "|")
 End With
End Sub

Thanks Apo,

It worked brillianty ! Thanks everyone