excel - Import Comma Delimited to Specific WorkSheet -

i trying import comma delimited text file specific sheet in workbook. code have imports it, cant figure out how tell go specific sheets thats created, right creates new sheet , dumps data in there.

the code have

'import report        dim vpath variant       dim wb excel.workbook       dim ws excel.worksheet        set wb = excel.activeworkbook       set ws = excel.sheets("data")       vpath = application.getopenfilename("csv (comma delimited) (*.csv),*.csv" _       , 1, "select file", , false)        ''//show file open dialog allow user select csv file        if vpath = false exit sub        ''//exit macro if no file selected        workbooks.opentext filename:=vpath, origin:=xlmsdos, startrow:=1 _       , datatype:=xldelimited, textqualifier:=xldoublequote, comma:=true _       , fieldinfo:=array(array(1, xltextformat), array(2, xltextformat), _       array(3, xltextformat))        ''//the fieldinfo array needs extended match number of columns        columns.entirecolumn.autofit        ''//resize columns        sheets(1).move before:=wb.sheets(1)        ''//move data workbook 

i think need add like;

destination:=range("sheet2!$a$1") 

somewhere, cant figure out where, everywhere ive tried has caused errors

here start:

sub csv_reader()       dim vpath variant       dim wb excel.workbook       dim ws excel.worksheet       dim rng range, textline string       dim rw long, col long       dim long, j long, ary() string, variant        set wb = excel.activeworkbook        vpath = application.getopenfilename("csv (comma delimited) (*.csv),*.csv" _          , 1, "select file", , false)       msgbox vpath       set rng = application.inputbox(prompt:="pick sheet , cell", type:=8)       rng.parent.parent.activate       rng.parent.activate       rw = rng(1).row       col = rng(1).column        close #1       = rw       open vpath input #1       while not eof(1)          line input #1, textline          ary = split(textline, ",")          j = col          each in ary             cells(i, j).value =             j = j + 1          next          = + 1       loop       close 1  end sub