Macro para crear una tabla variante

Estoy haciendo una macro para insertar y quitar tablas, pero las columnas van creciendo porque ingreso datos, y tengo esta macro:

ActiveSheet.ListObjects.Add(xlSrcRange, Range("A1:A305"), , xlYes).Name = "Tabla13"

Pero al ingresar un valor en la celda A306 no me lo toma.

Trate de utilizar este pero no me funciona tampoco:

  ActiveSheet.ListObjects.Add(xlSrcRange, Range("A1").CurrentRegion, , xlYes).Name = "Tabla14"

Me pueden ayudar ando desesperado.