Hi,
  I already posted this before. I thought it was not clear. I am reposting
it. I am creating a word table using some software. I want to copy last cell
content of first column on first page and copying into second cell of first
column on second page. I got an answer from a MVP about how to do this.  
Thanks to her. I extended it to copy last non empty cell content of first
column and paste it into the second page second cell of first column. Here is
the code that I modified.
 My Question is I want to do this repetetively for every page of the table.
Could you please tell me how to do this on every page. Thank you.

Sub CopyTableCell()
Dim rngPg1 As Word.Range
Dim rngPg2 As Word.Range
Dim rngCell1 As Word.Range
Dim rngCell2 As Word.Range

'Move to the top of the document
Selection.HomeKey wdStory
'Pick up the entire page of the active selection
Set rngPg1 = ActiveDocument.Bookmarks("\Page").Range
'Pick up the last row, first cell
cellNumber = rngPg1.Rows.Count
Set rngCell1 = rngPg1.Rows(cellNumber).Cells(1).Range

'Shorten the range to drop the end-of-cell marker
rngCell1.MoveEnd wdCharacter, -1
Do Until cellNumber = 1
If rngCell1.Text = "" Then
cellNumber = cellNumber - 1
Set rngCell1 = rngPg1.Rows(cellNumber).Cells(1).Range
rngCell1.MoveEnd wdCharacter, -1
End If
If rngCell1.Text <> "" Then Exit Do
Loop

'Move to the second page
Selection.GoTo What:=wdGoToPage, Which:=2
'Pick up the entire page
Set rngPg2 = ActiveDocument.Bookmarks("\Page").Range
'Pick up the first cell of the second row
Set rngCell2 = rngPg2.Rows(1).Cells(1).Range
'Make sure the range is IN the cell (not containing the cell)
rngCell2.Collapse
'"Copy" the text + formatting
rngCell2.FormattedText = rngCell1.FormattedText
rngCell2.Paragraphs.Alignment = wdAlignParagraphLeft