Had a play then realised going in wrong direction, need suppress heading added. But method is there copy one of the tables use as master, pick the 1st value in left column 3rd row down keep repeating.
; add columns from one table to another
; make multi tables into 1
; By Alan H Oct 2019 info@alanh.com.au
(defun c:mrgtab ( / pbj pbj2 x col col2 colwid ent col2ac row pt pick lwrleft urright lst ss)
(setq oldsnap (getvar 'osmode))
(setq obj (vlax-ename->vla-object (car (entsel "Pick master table"))))
(setq row (vla-get-Rows obj))
(setq col (vla-get-Columns obj))
(setq colwid (vla-getcolumnwidth obj (- col 1)))
(setvar 'osmode 0)
(while (setq pt (getpoint "\nSelect top Cell for column values in other table: "))
(setq pick (vlax-3d-point pt))
(vla-InsertColumns obj col (vla-getcolumnwidth obj (- col 1)) 1)
(setq row2 (vla-get-Rows obj))
(setq col (+ col 1))
(setq lwrleft (polar pt (* pi 1.25) 2))
(setq uprright (polar pt (* pi 0.25) 2))
(setq vector (vlax-3D-point (trans (getvar 'viewdir) 1 0)))
(setq SS (ssget "C" lwrleft uprright (list (cons 0 "ACAD_TABLE"))))
(setq Obj2 (vlax-ename->vla-object (ssname SS 0)))
(if (= (vla-hittest Obj2 pick vector 'rown 'coln) :vlax-true)
(setq lst (list rown coln))
)
(setq col2 (nth 1 lst))
(setq rowst (nth 0 lst))
(setq x rowst)
(repeat (- row2 rowst )
(setq txt (vla-getText Obj2 x col2 ))
(vla-SetText Obj x (- col 1) txt)
(setq x (+ x 1))
)
)
)
(c:mrgtab)