Если understadn I вы правильно. Вы принять рядок 2 CSV и оно заселяете ряд D4: D13 в вашем в настоящее время workbook. Иначе говоря, multi-колонки (1 рядок) до 1 колонка (multi рядки):
Тусклое cwb как новый Workbook
Установите cwb = Excel.ActiveWorkbook
Затемните nwb как новый Workbook
Установите nwb = Application.Workbooks.Open («C:\MyCSV.csv ")
nwb.ActiveSheet.Range («A2: G2»). Отборно
Selection.Copy
cwb. Активируйте
Ряд («D4»). Отборно
Затир Selection.PasteSpecial: =xlPasteAll, деятельность: =xlNone, SkipBlanks: = _
Ложно, транспонируйте: =True
nwb. Близкие savechanges = ложно
Вам будет нужно редактировать ряды и курс CSV конечно.