Ordenar diferentes tablas en word

Tengo un archivo word con muchas tablas, lamentablemente no están ordenadas de acuerdo a su frecuencia, si selecciono una tabla puedo ordenarla de acuerdo a botón ordenar, sin embargo tengo una macro para seleccionar todas las tablas (son muchas) pero el botón ordenar no esta habilitado, mi macro es:

Sub selecttables()

Dim mytable As Table

For Each mytable In ActiveDocument.Tables

mytable.Range.Editors.Add wdEditorEveryone

Next

ActiveDocument. SelectAllEditableRanges (wdEditorEveryone)

ActiveDocument. DeleteAllEditableRanges (wdEditorEveryone)

End Sub

Agradeceria cualquier ayuda, el nombre de la columna a ordenar es Freq.