Hi, WesternGal,

still don´t get for which range this action should be taken. The difference bvetween your recorded macro and the sniplet is that you take the value and my code relates on what is shown in the cell.

To paste the contents into the active cell use
Sub WesternGal_2()
With ActiveCell
  .Value = .Text & vbCrLf & .Offset(1, 0).Text
End With
End Sub
The code will place the contents to the left of the cell (as this is a string that´s put in) and it doesn´t change the formatting when I use it with Excel2013.

Ciao,
Holger