Sub chex()
Dim tbl1 As Table
Dim tbl2 As Table
Dim L As Long
For L = 1 To ActivePresentation.Slides(1).Shapes.Count
If ActivePresentation.Slides(1).Shapes(L).HasTable Then
Set tbl1 = ActivePresentation.Slides(1).Shapes(L).Table
Exit For
End If
Next L
For L = 1 To ActivePresentation.Slides(2).Shapes.Count
If ActivePresentation.Slides(2).Shapes(L).HasTable Then
Set tbl2 = ActivePresentation.Slides(2).Shapes(L).Table
Exit For
End If
Next L
For L = 1 To 6
tbl2.Cell(1, L).Shape.TextFrame2.TextRange = tbl1.Cell(1, 6 - L + 1).Shape.TextFrame2.TextRange
Next
End Sub