Необходимо реализовать код!

Sub crustchanger() 'матрицу предварительно заполняем в таблице документа Word
    Dim N As Long
    Dim Nmax As Long    'номер строки с наибольшей суммой
    Dim temp As Single  'в этой переменной запоминаем сумму очередной строки
    Dim Nelm As Single  'в этой переменной запоминаем N-й элемент строки
    
    With ActiveDocument.Tables(1)   'ищем в 1-й таблице документа Word строку,
                                    'максимальную по сумме чисел
        For N = 1 To .Rows.Count
            .Rows(N).Select             'выделили N-ю строку таблицы
            If Selection.Calculate > temp Then temp = Selection.Calculate: Nmax = N
        Next
        'здесь имеем номер Nmax и сумму temp ПЕРВОЙ из найденных строк с наиб. суммой
        '(практически их может быть и несколько одинаковых по сумме)
        
        For N = 1 To .Rows.Count
            Nelm = 0
            Nelm = .Cell(Nmax, N).Range.Calculate
            .Cell(N, Nmax).Formula "=" & Nelm & ""
            'N-ю ячейку столбца с номером Nmax меняем на N-ю ячейку строки с номером Nmax
        Next
        ActiveDocument.Fields.Unlink 'преобразуем поля формул в числовые значения
            
    End With
'To be continued...
End Sub