Assuming the building block-placed table is IMMEDIATELY above the selection, you could move the selection back into the table by using the .Previous method along the lines of
Code:
Dim aRng As Range, aTbl As Table, aCell As Cell
Set aRng = Selection.Range.Paragraphs(1).Previous.Range
Set aTbl = aRng.Tables(1)
Set aCell = aTbl.Cell(1, 1)
aCell.Range.Select
You should be looking to moving away from using the selection object once you have used it to define the initial insertion point.