activeCell.End(xlUp).Address は?
上に隣接する別のテーブルがないことが条件だけど