This code example will show you how to cope

Sub SetCellNumbers()
Dim oCell As Cell
For Each oCell In ActiveDocument.Tables(1).Range.Cells
 oCell.Range.InsertAfter oCell.RowIndex & " " & oCell.ColumnIndex
Next oCell
End Sub

Hi,
you can still loop through all cells like this,
Dim oCll As Cell
With ActiveDocument.Tables(1).Range
  For Each oCll In .Cells
     oCll.Select
  Next
End With
or use for i = 1 to ActiveDocument.Tables(1).Range.Cells.Count
You also can access r (row) and c (col) of the given cell:
     r = oCll.RowIndex
     c = oCll.ColumnIndex
If you have merged cells (1,2) and (2,2) vertically,
then cell(2,2) has vanished. Though, with horizontally merged cells,
this method doesn't work, and I wonder, if there is a solution at all.
---
Greetings from Bavaria, Germany
Helmut Weber, MVP
"red.sys" & chr(64) & "t-online.de"
Word 2002, Windows 2000

And for a third method of iterating all the cells in a table --

Dim pCell as Word.Cell

Set pCell = Selection.Tables(1).Cell(1,1)            'This cell always
exists, whatever merging or splitting you might have done

Do
   .... work with pCell

   set pCell = pCell.Next
Loop until pCell is nothing