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......

Sub Макрос1()
Range("H:H,J:J,L:L").Select
Range("L1").Activate
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    
    Range("H1").Select
    ActiveCell.FormulaR1C1 = Range("A7")
    Range("H2").Select
    ActiveCell.FormulaR1C1 = Range("A7")
    Range("H1:H2").Select
    Selection.AutoFill Destination:=Range("H1:H46")
    Range("H1:H46").Select
    
    Range("K2").Select
    ActiveCell.FormulaR1C1 = Range("A8")
    Range("K1").Select
    ActiveCell.FormulaR1C1 = Range("A8")
    Range("K1:K2").Select
    Selection.AutoFill Destination:=Range("K1:K46")
    Range("K1:K46").Select
   
    Range("N1").Select
    ActiveCell.FormulaR1C1 = Range("A9")
    Range("N2").Select
    ActiveCell.FormulaR1C1 = Range("A9")
    Range("N1:N2").Select
    Selection.AutoFill Destination:=Range("N1:N46")
    Range("N1:N46").Select
    
End Sub