Dim oWord As Object
Set oWord = CreateObject("Word.Application")
Dim oDoc As Object
Set oDoc = oWord.Documents.Add(Template:="Normal", NewTemplate:=False, DocumentType:=0)
Dim oTable As Object
Set oTable = oDoc.tables.Add(range:=oDoc.range, NumRows:=Products.Count, NumColumns:=2, DefaultTableBehavior:=1, AutoFitBehavior:=1)
oDoc.Activate
For i = 1 To Products.Count
    'oTable.cell(i, 1).range. ?????
    oTable.cell(i, 2).range.Text = Products.Item(i).OneCName
Next i

oTable.cell(i, 1).range.addpicture Products.Item(i).Photo