Dim otkyda As String 'файл csv откуда копируются данные
    Dim kyda As String   'файл обработчик куда вставляются данные
    Dim WBotkyda As Workbook
    Dim rngData As Range, rngPaste As Range, cell As Range
    Dim x As Long, rw As Long
'Ячейка в которой указано имя файла обработчика
    kyda = Range("B18")
'Диалоговое окно для выбора csv файла
    otkyda = Application.GetOpenFilename(Title:="Выберите файл для обработки")
    If otkyda = "False" Then Exit Sub
    Set WBotkyda = Workbooks.Open(Filename:=otkyda)

Копируем данные из csv файла
    WBotkyda.Sheets(1).Range("A1:A200").Select
    Selection.Copy
Переходим к данной книге и вставляем данные
    'With Workbooks(kyda)
        .Activate
        .Sheets(1).Range("G1").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    End With......