Insert Table on first empty cell in row

I have a macro that inserts a new table in to a range, and names the new table based on another cells value:

Sub sbCreatTable()
Sheet1.ListObjects.Add(xlSrcRange, Range("B1:B3"), , xlYes).Name = Range("a2").Text

However the sheet I would like to add the table to, has a range of tables already on Row B so I need the table to be added to the end of these, and inserted on the first empty cell on row B. The code I have will only insert this in a specific range.

Could anybody assist with pointing me in the right direction?