Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oRow As Row
  Set oRow = ActiveDocument.Tables(2).Rows.Add
  'You need to strip the end of cell marker.  This is a little cumbersome inline:
  oRow.Cells(1).Range.Text = Left(ActiveDocument.Tables(1).Rows(1).Range.Cells(1).Range.Text, _
                             Len(ActiveDocument.Tables(1).Rows(1).Range.Cells(1).Range.Text) - 2)
  'So use a function instead
  oRow.Cells(1).Range.Text = CellContent(ActiveDocument.Tables(1).Rows(1).Range.Cells(1))
End Sub
 Function CellContent(oCell As Cell) As String
Dim oRng As Word.Range
   Set oRng = oCell.Range
   oRng.End = oRng.End - 1
   CellContent = oRng.Text
End Function