Se understadn de I você corretamente. Você que querem tomar a fileira dois do CSV e povoam a escala D4: D13 em seu manual de instruções atual. Ou seja multi-colunas (1 fileira) a 1 coluna (multi fileiras):
Cwb não ofuscante como o manual de instruções novo
Ajustar o cwb = o Excel.ActiveWorkbook
Escurecer o nwb como o manual de instruções novo
Ajustar o nwb = o Application.Workbooks.Open (“C:\MyCSV.csv ")
nwb.ActiveSheet.Range (“A2: G2”). Seleto
Selection.Copy
cwb. Ativar
Escala (“D4”). Seleto
Pasta de Selection.PasteSpecial: =xlPasteAll, operação: =xlNone, SkipBlanks: = _
Falso, transpr: =True
nwb. Savechanges próximos = falso
Você precisará de editar as escalas e o trajeto de CSV naturalmente.