Essentially where you went awry is that you didn't indicate which table you wanted to work with (Selection.Tables(1))
You then need to set a range to that table and ensure the search is limited to that range (as the search will want to continue).
Perhaps the less obvious part is ensuring that the list is printed after the table and not either in the last cell (nor the first cell of any table that immediately follows it).
Incidentally on reviewing the code I notice I included oRng.Select near the top. That line is superfluous. You don't need to select a range in order to work with it.