Cells(2, 7).FormulaR1C1Local = "=ВПР([@[S1_ID]];'export data'!C3:C15; 13; 0)"

Sub Get_Value_From_Close_Book2()
    Dim sShName As String, vData
    Dim objCloseBook As Object
    Dim aCopy, aPaste,lr&
    aCopy = array("A3","C5","H4", "G8")     'кол-во ячеек должно быть равно кол-ву в aPaste
    aPaste = array("A8","C8","H8", "G16")  'кол-во ячеек должно быть равно кол-ву в aCopy
    'Отключаем обновление экрана
    Application.ScreenUpdating = False
    Set objCloseBook = GetObject("C:\Documents and Settings\Книга1.xls")
    For lr = lbound(aCopy) to ubound(aCopy)
        'Записываем данные на активный лист книги,
        'с которой запустили макрос
        Range(aCopy(lr)).Value = objCloseBook.Sheets("Лист1").Range(aPaste(lr)).Value
    Next
    objCloseBook.Close False
    'Включаем обновление экрана
    Application.ScreenUpdating = True
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Application.StatusBar = "Выделено строк: " & Target.Rows.Count
End Sub

Sub Get_Value_From_Close_Book2()
    Dim sShName As String, vData
    Dim objCloseBook As Object
    'Отключаем обновление экрана
    Application.ScreenUpdating = False
    Set objCloseBook = GetObject("C:\Documents and Settings\Книга1.xls")
    Dim x
    For each x in array("A3","C5","H4", "G8")
        'Записываем данные на активный лист книги,
        'с которой запустили макрос
        Range(x).Value = objCloseBook.Sheets("Лист1").Range(x).Value
    Next
    objCloseBook.Close False
    'Включаем обновление экрана
    Application.ScreenUpdating = True
End Sub

=СЖПРОБЕЛЫ(ПСТР(ПРАВСИМВ(" "&ПОДСТАВИТЬ(A1;" ";ПОВТОР(" ";999));999*4);1;999*4))

asr = Split(.GetText, vbNewLine)

asc = Split(asr(lr), vbTab)

Sub S_ClipboardText()
    Dim asr, asc, lr&
    With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
        .GetFromClipboard
        asr = Split(.GetText, vbNewLine)
        For lr = LBound(asr) To UBound(asr)
            If asr(lr) <> "" Then
                asc = Split(asr(lr), vbTab)
                ActiveCell.Offset(lr, 0).Resize(, UBound(asc) + 1).Value = asc
            End If
        Next
    End With
End Sub

Application.Goto Range("A56"), True
'для активной ячейки
Application.Goto ActiveCell, True

path = "E:\2\",//для примера, можно брать и из таблицы
path_col = Table.AddColumn(Source, "Path", each path)

path_col = Table.AddColumn(Source, "Path", each "E:\2\")

List.Count(List.Select(Source[MIS], each _ <>"")))