Sub VBAtips2()br For Each cell In Selectionbr cell.Value = cell.Value & vbNewLine & Range(cell.Address).Offset(1, 0).Valuebr Next cellbr End Subbr br supporting File.