If your H/M/L tables are always appearing in that order at the top of the document then your macros might work like this
Code:
Sub MoveIt_High()
ILikeToMoveIt
End Sub
Sub MoveIt_Medium()
ILikeToMoveIt 2
End Sub
Sub MoveIt_Low()
ILikeToMoveIt 3
End Sub
Function ILikeToMoveIt(Optional iTbl As Integer = 1)
Dim aRng As Range, aTbl As Table, aRow As Row
Set aRng = Selection.Paragraphs(1).Range
aRng.End = aRng.End - 1
Set aTbl = ActiveDocument.Tables(iTbl)
Set aRow = aTbl.Rows.Add
aRow.Cells(1).Range.FormattedText = aRng.FormattedText
End Function