Autofill range ( Get table name )

[christchaaya]

Hi everyone. I need to autofill a column but i have a problem with the destination reference ; i have to solutions :

1) In the first case I just need to correct the destination

activecell.Offset(-1,0).Select
set x = activecell
Range("b9").End(xlDown).Select
activecell.Offset(1,0).Select
inputbox("Cual es el periode")
Selection.AutoFill Destination:= range (x.address)

2) This one is a bit more complicated because i can use as destination the name of a column of the table where I'm working but the problem is that this macro will run on different files and everytime the table may have a different name. How can i get the table name ?

activecell.Offset(-1,0).Select
set x = activecell
Range("b9").End(xlDown).Select
activecell.Offset(1,0).Select
inputbox("Cual es el periode")
Selection.AutoFill Destination:= range ("Tabla2[PERIODE]")


Please if you can answer two both solutions so I'll learn how to get table name :D Thank you in advance