' Get the Word table
Set wordTable = objDoc.Tables(1)
' Loop through the table cells
For Each cell In wordTable.Range.Cells
    ' Check if it's the top-left cell of a new page
    If cell.Range.Information(3) = 1 Then ' wdFirstCellOnPage
        currentPage = cell.Range.Information(2) ' wdActiveEndAdjustedPageNumber
        ' Check if the cell is blank and not on the first page
        If IsEmpty(cell.Value) And currentPage > 1 Then
            ' Get the corresponding cell above
            Set previousCell = wordTable.cell(cell.RowIndex - 1, cell.ColumnIndex)
            ' Copy the contents of the cell above and add " cont'd"
            previousCell.Range.Copy
            cell.Range.Paste
            cell.Range.InsertAfter " cont'd"
        End If
    End If
Next cell

Sub VBA_Macro_to_edit_cell_contents_in_table_in_Word_based_on_other_cell_contents()
    Dim objDoc As Word.Document, cell As Word.cell, previousCell As Word.cell
    Dim valueRef As String, wordTable As Word.Table, ur As UndoRecord
    Set ur = Word.Application.UndoRecord
    ur.StartCustomRecord "VBA_Macro_to_edit_cell_contents_in_table_in_Word_based_on_other_cell_contents"
    
    Set objDoc = ActiveDocument
        
    Rem Test my code by placing the cursor in the *previousCell*
        If Not Selection.Information(wdWithInTable) Then 'just for test
            MsgBox "must placing the cursor in a cell to try!", vbCritical
            Exit Sub
        End If
    Set previousCell = Selection.Cells(1) 'just for test
    previousCell.Range.Text = "01-007" ''just for test
    valueRef = Replace(previousCell.Range.Text, Chr(13) & Chr(7), "")
    
    ' Get the Word table
    'Set wordTable = objDoc.Tables(1) 'YOU GOT ONLY ONE TABLE in a document??
    Set wordTable = previousCell.Range.Tables(1)
        
    Set cell = GetTopleftCellPage(previousCell)
    
    Do Until cell Is Nothing
        If VBA.Len(cell.Range.Text) = 2 Then 'Chr(13) & Chr(7)
            cell.Range.Text = valueRef + " cont'd"
            
            Rem just for watch in testing
            cell.Range.Select
        
        End If
        Set cell = GetTopleftCellPage(cell)
    Loop
    
    ur.EndCustomRecord
    
    MsgBox "done!", vbInformation
    
'    ' Loop through the table cells
'    For Each cell In wordTable.Range.Cells
'        ' Check if it's the top-left cell of a new page
'        If cell.Range.Information(3) = 1 Then ' wdFirstCellOnPage
'            currentPage = cell.Range.Information(2) ' wdActiveEndAdjustedPageNumber
'            ' Check if the cell is blank and not on the first page
'            If IsEmpty(cell.Value) And currentPage > 1 Then
'                ' Get the corresponding cell above
'                Set previousCell = wordTable.cell(cell.RowIndex - 1, cell.ColumnIndex)
'                ' Copy the contents of the cell above and add " cont'd"
'                previousCell.Range.Copy
'                cell.Range.Paste
'                cell.Range.InsertAfter " cont'd"
'            End If
'        End If
'    Next cell
End Sub
Property Get GetTopleftCellPage(ByVal cell As cell) As Word.cell
    Dim r As Long, rng As Range, tb As Word.Table ', d As Document
    Dim firstVisibleLine As Long, currentPage As Long
    Dim firstCellOnPage As cell
    'Set d = ActiveDocument
    Set tb = cell.Range.Tables(1)
    r = cell.RowIndex
    Set rng = cell.Range
    currentPage = rng.Information(wdActiveEndPageNumber)
    Do While currentPage = rng.Information(wdActiveEndPageNumber)
        r = r + 1
        Set rng = tb.cell(r, 1).Range
        If r >= tb.rows.Count Then
            Exit Property
        End If
    Loop
    Set GetTopleftCellPage = rng.Cells(1)
End Property

dim rowCell as long
rowCell= previousCell.row+1
if rowCell <=tb.rows.count then
   Set cell = tb.cells(rowCell,previousCell.ColumnIndex)
   cell.Range.Text = valueRef + " cont'd"
end if

Sub Tester()
    Dim tbl As Table, col As Column, c As Cell, i As Long, pgNumStart, pgNumEnd
    Dim rng As Range, currPage, lastText, txt, newPage As Boolean
    
    Set tbl = ActiveDocument.Tables(1)
    Set col = tbl.Columns(1) 'only looking in the first column of the table
    
    currPage = 0
    For Each c In col.Cells
        Set rng = c.Range.s
        rng.Collapse wdCollapseStart
        pgNumStart = rng.Information(3)   'cell begins on this page
        'pgNumEnd = c.Range.Information(3) 'cell ends on this page
        
        
        newPage = (pgNumStart > 1) And (pgNumStart <> currPage) 'on a new page?
        If newPage Then currPage = pgNumStart                   'update current page
        
        txt = CellText(c)
        
        If Len(txt) = 0 Then 'cell is empty?
            If newPage And Len(lastText) > 0 Then
                c.Range.Text = lastText & vbLf & "(cont)"
            End If
        Else
            lastText = txt
        End If
    Next c
End Sub
'cell text, minus end-of-cell marker
Function CellText(c As Cell)
    CellText = Replace(c.Range.Text, Chr(13) & Chr(7), "")
End Function