Sub MoveToOutTakes()
Dim oRng As Range
  Set oRng = ActiveDocument.Range
  oRng.Collapse wdCollapseEnd
  If Selection.Start = Selection.End Then
    MsgBox "Nothing selected", vbOKOnly
    Exit Sub
  End If
  oRng.FormattedText = Selection.FormattedText
  Selection.Range.Delete
End Sub