Yes, it's possible in VBA, but we need more details to help you!
Example code would looks like:
Option Explicit
Sub MergeTables()
Dim srcDoc As Document, dstDoc As Document
Dim srcTbl1 As Table, srcTbl2 As Table, dstTbl As Table
Dim rng As Range, sTmp As String
Dim r As Long, rc As Long
On Error GoTo Err_MergeTables
Set srcDoc = ThisDocument
Set srcTbl1 = srcDoc.Tables(1)
Set srcTbl2 = srcDoc.Tables(2)
Set dstDoc = Documents.Add
Set dstTbl = dstDoc.Tables.Add(dstDoc.Range, srcTbl1.Rows.Count, srcTbl1.Columns.Count)
rc = srcTbl1.Rows.Count
For r = 2 To rc
Set rng = srcTbl1.Cell(r, 1).Range
dstTbl.Cell(r, 1).Range.Text = rng.Text
sTmp = FindIDAndGetInfo(rng.Text)
dstTbl.Cell(r, 2).Range.Text = sTmp
Next
Exit_MergeTables:
On Error Resume Next
Set rng = Nothing
Set dstTbl = Nothing
Set srcTbl2 = Nothing
Set srcTbl1 = Nothing
Exit Sub
Err_MergeTables:
MsgBox Err.Description, vbExclamation, Err.Number
Resume Exit_MergeTables
End Sub
Function FindIDAndGetInfo(sID As String) As String
Dim sRetVal As String
FindIDAndGetInfo = sRetVal
End Function