Option Explicit

Public Sub Замена_Табличная()

    Dim arr() As Variant, arrSplit
    With ActiveSheet
        arr = .Range(.Cells(2, 3), _
                     .Cells(.UsedRange.Rows.Count, _
                            .UsedRange.Columns.Count)).Value

        Dim rng As Range, eL As Range
        Set rng = .[a1].CurrentRegion
    End With

    Dim x As Long, iRow As Long, iCol As Long
    
    For Each eL In rng
        
        'eL.Select '===для Отладки, потом У далить
        
        arrSplit = Split(eL.Value, " ")

        For x = LBound(arrSplit) To UBound(arrSplit)

            For iRow = LBound(arr) To UBound(arr)

                For iCol = LBound(arr, 2) To UBound(arr, 2) - 2

                    If arrSplit(x) = arr(iRow, iCol) Then
                        
                        eL.Value = Replace(eL.Value, arrSplit(x), arr(iRow, UBound(arr, 2)))
                    End If

                Next: Next: Next: Next
End Sub