Como supongo que entre tabla y tabla dejarás algunas lineas libres (como mínimo una) para que no parezca que está todo junto, lo que yo haría, sería bajar hasta el final del libro, y desde ahí, subir a la última fila que contenga datos:
Código:
'Supongamos que quieres pegar la tabla en la columna C,
'para lo cual seleccionaremos por ejemplo la última fila
'(al menos en Office XP la 65536 es la última fila)
Range("C65536").Select
'Ahora subimos para arriba, hasta encontrar un dato
Selection.End(xlUp).Select
'Como nos habremos situado encima de una fila que contiene un dato
'solo nos quedará bajar para abajo. Bajaremos 2 filas, una para
'dejarla en blanco, y otra que será donde pegaremos la tabla
ActiveCell.Offset(2, 0).Select
Solo tienes que poner el código para pegar la tabla justo debajo de ese código que puse.
Salu2
PD: Se podría hacer sin bajar hasta abajo del todo, y luego subir hasta la última fila con datos, pero como tenemos el inconveniente de que entre tabla y tabla puede haber 1, 2, 3, o 20 filas vacías, creo que esta es la solución más sencilla.