Copy and paste row values in a table.

[sharath]

Having following code in .bas(macro).

[vba]Set shpGrpTable = Slide.Shapes.AddTable(3, 6,18#,250, 681#, 600)

Set grpTxtFrame = shpGrpTable.Table.Cell(1, 1).Shape.TextFrame
grpTxtFrame.TextRange.Text = "GROUP"
grpTxtFrame.TextRange.Font.Size = 14
grpTxtFrame.TextRange.Font.Name = "Arial"
grpTxtFrame.TextRange.Font.Color.RGB = 16777215
grpTxtFrame.TextRange.Font.Bold = msoTrue
grpTxtFrame.HorizontalAnchor = msoAnchorCenter
grpTxtFrame.VerticalAnchor = 3

Set prmTxtFrame = shpGrpTable.Table.Cell(2, 1).Shape.TextFrame
prmTxtFrame.TextRange.Text = "COUNTRY"
prmTxtFrame.TextRange.Font.Size = 14
prmTxtFrame.TextRange.Font.Name = "Arial"
prmTxtFrame.TextRange.Font.Color.RGB = 16777215
prmTxtFrame.TextRange.Font.Bold = msoTrue
prmTxtFrame.HorizontalAnchor = msoAnchorCenter
prmTxtFrame.VerticalAnchor = 3[/vba]
1. grpTxtFrame and prmTxtFrame are having the same properties. After creating grpTxtFrame, how to copy and paste grpTxtFrame into cell(2,1) and how to reassign value('COUNTRY) to cell(2,1).

2. shpGrpTable is created in slide1 and how to copy this into slide2.

Thanks in advance.
Sharath.