Workbooks.Open Filename:="C:\Proyecto\csv\T3683.csv.xls"
    Rows("1:10").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("B6").Select
    ActiveCell.FormulaR1C1 = "Report"
    Range("C7").Select