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 <br /><br />Microsoft Excel Course: Advanced Excel Training <br /><br />https://www.udemy.com/course/microsoft-excel-excel-from-beginner-to-advanced-m/?couponCode=FC0D30F148B3045E6E59
