Hi, James

Try the code below and see if it works.

Sub Macro1()
    Dim sld As Slide
    Dim shp As Shape
    Dim SourceTable As Table
    Dim Found As Boolean
    Dim GP As String
    Dim OP As String


    Found = False
    
    With ActivePresentation
        For Each sld In .Slides
            For Each shp In sld.Shapes
                If shp.HasTable Then
                    If shp.Table.Cell(1, 1).Shape.TextFrame.TextRange.Text = "GOOD PROGRESS" _
                      And shp.Table.Cell(1, 2).Shape.TextFrame.TextRange.Text = "OUTSTANDING PROGRESS" Then
                        Set SourceTable = shp.Table
                        Found = True
                        Exit For
                    End If
                End If
            Next shp
            If Found Then Exit For
        Next sld
    End With
    
    With SourceTable
        GP = .Cell(2, 1).Shape.TextFrame.TextRange.Text
        OP = .Cell(2, 2).Shape.TextFrame.TextRange.Text
    End With
    
    With ActivePresentation.SlideMaster
        For Each shp In .Shapes
            If shp.HasTable Then
                shp.Table.Cell(2, 1).Shape.TextFrame.TextRange.Text = GP
                shp.Table.Cell(2, 2).Shape.TextFrame.TextRange.Text = OP
                Exit For
            End If
        Next shp
    End With
End Sub