Sub VBA_tips2()<br />For Each cell In Selection<br />cell.Value = cell.Value & vbNewLine & Range(cell.Address).Offset(1, 0).Value<br />Next cell<br />End Sub<br /><br />supporting File.<br />https://drive.google.com/file/d/1yQL0CQGatFfrPyeA8s27a0RpMAIs04Xr/view?usp=share_link
