If I understadn you correctly. You wanting to take row two of the CSV and it populate range D4:D13 in your current workbook. In other words, multi-columns(1 row) to 1 column(multi rows):
Dim cwb As New Workbook
Set cwb = Excel.ActiveWorkbook
Dim nwb As New Workbook
Set nwb = Application.Workbooks.Open("C:\MyCSV.csv")
nwb.ActiveSheet.Range("A2:G2").Select
Selection.Copy
cwb.Activate
Range("D4").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
nwb.Close savechanges = False
You'll need to edit the ranges and CSV path of course.