選択範囲の値に改行を追加する。

くせなので。

Sub appendBreak()

If TypeName(Selection) <> "Range" Then
MsgBox "Selection Empty"
Exit Sub
End If

Dim obj As Range
For Each obj In Selection.Cells
obj.Value = obj.Value & vbCrLf
Next
End Sub