Код VBA, работающий в режиме отладки, но не в реальном времени выполнения

Question

Хочу создать копию данных первого и третьего столбца каждой и той же таблицы, которую я использовал ниже для кода, но работающего в режиме отладки, но не в реальном режиме.

Ниже приведен код, для которого я использовал.

Можете ли вы помочь мне в том же, так как у меня нет большого опыта работы с VBA, только начатой.

Sub add()
'Application.EnableCancelKey = xlDisabled
    With ActiveDocument.Tables(3) ' Selecting table
        .Select

            .Columns(1).Select
            Selection.Copy
            Selection.Paste
            .Columns(3).Select
            Selection.Copy
            Selection.Paste
        End With

    ActiveDocument.Save


    With ActiveDocument.Tables(2)
        .Select

            .Columns(1).Select
            Selection.Copy
            Selection.Paste
            .Columns(3).Select
            Selection.Copy
            Selection.Paste
        End With

End Sub

Я также использовал для l oop для того же, но он также не работает в реальном режиме.