Sub Макрос5()
' макрос копирует из открытой книги, откуда он запущен, столбцы в другую книгу, выбранную пользователем с помощью диалоговой формы

' открываем книгу куда будем копировать
        fileopenname = Application.GetOpenFilename(fileFilter:="Книги Excel (*.xls*), *.xls*", Title:="Введите путь к файлу данных")
        Workbooks.OpenText Filename:=fileopenname, Origin:=866 _
        , StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
        , Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
        TrailingMinusNumbers:=True
        Application.ScreenUpdating = False
    'Workbooks("копирование столбцов.xlsm").Worksheets(1).Columns("A:A").Copy
    'можно заменить на
     ThisWorkbook.Worksheets(1).Columns("A:A").Copy
     fName = CreateObject("Scripting.FileSystemObject").GetFileName(fileopenname)
     Workbooks(fName).Worksheets(1).Columns("A:A").PasteSpecial Paste:=xlPasteValues
     Workbooks(fName).Activate
     Application.ScreenUpdating = True
     MsgBox "Копирование завершено"
     
End Sub

'активируем книгу куда копируем
    W = fileopenname
    NF = Dir(W)
    Workbooks(NF).Worksheets(1).Columns("A:A").PasteSpecial Paste:=xlPasteValues

Sub Макрос1()
' Макрос1 Макрос
' открываем книгу куда будем копировать
        fileopenname = Application.GetOpenFilename(fileFilter:="Книги Excel (*.xls*), *.xls*", Title:="Введите путь к файлу данных")
        Workbooks.OpenText Filename:=fileopenname, Origin:=866 _
        , StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
        , Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
        TrailingMinusNumbers:=True
        Application.ScreenUpdating = False
      ' активируем книгу откуда копируем
    Windows("копирование столбцов.xlsx").Activate
    'выделяем нужный столбец
    Columns("A:A").Select
    Selection.Copy
    'активируем книгу куда копируем
       Windows("Книга2копирование.xlsx").Activate
        Columns("A:A").Select
    ' вставляем только значения
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
     End Sub