I'm not sure what the point of generating the list in a separate document would be. Nevertheless, that could be done by inserting:
Documents.Add
before:
Set Rng = ActiveDocument.Range.Characters.Last
and delete or comment-out:
Code:
If .Characters.First.Previous <> vbCr Then .InsertAfter vbCr
.InsertAfter Chr(12)
.Collapse wdCollapseEnd
As for the sorting, that could be accomplished by inserting:
Code:
.Sort ExcludeHeader:=True, FieldNumber:="Column 1", CaseSensitive:=False, _
SortFieldType:=wdSortFieldAlphanumeric, SortOrder:=wdSortOrderAscending
anywhere within the:
Code:
With Tbl
...
End With
block.