Записать удалённые элементы в новый абзац в конце текста

Public Sub удаление_зимболов()
Dim St As String, st1 As String
Dim Pos As Long, Pos1 As Long
Dim Sym As String ' * 1
  St = Selection.Text
  If Len(St) <= 1 Then
    MsgBox "Необходимо выделить фрагмент текста"
    Exit Sub
  End If
  Pos = InStr(1, St, "")
  If Pos = 0 Then Exit Sub
  Pos1 = InStr(Pos + 1, St, ".")
  If Pos1 = 0 Then Exit Sub
  st1 = Left$(St, Pos)
  For Pos = Pos + 1 To Pos1 - 1
    Sym = Mid$(St, Pos, 1)
    If Not Sym Like "[* , : ; + - ]" Then st1 = st1 & Sym
  Next
  st1 = st1 & Mid$(St, Pos1)
  Selection.Text = st1
End Sub

Public Sub удаление_зимболов()
Dim St As String, st1 As String
Dim Pos As Long, Pos1 As Long
Dim Sym As String ' * 1
Dim sx, MyRange
  St = Selection.Text
  If Len(St) <= 1 Then
    MsgBox "Необходимо выделить фрагмент текста"
    Exit Sub
  End If
  Pos = InStr(1, St, "")
  If Pos = 0 Then Exit Sub
  Pos1 = InStr(Pos + 1, St, ".")
  If Pos1 = 0 Then Exit Sub
 Set MyRange = ActiveDocument.Range(Selection.Range.Start, End:=Selection.Range.Start + Pos1)
 MyRange.Select
 Selection.Cut
 Selection.EndKey Unit:=wdStory ' -- В конец документа
 Selection.TypeParagraph
 Selection.PasteAndFormat (wdPasteDefault)
End Sub