Non-Contiguous columns in multiple workbooks into New Workbook - Efficiency?

[snb]

For Each FileName In SelectedFiles 
  With getobject(FileName) 
    sn= .sheets(1).usedrange
    .close 0
  end with

  sp=application.index(sn,evaluate("row(1:"&ubound(sn)&")"),array(3,4,5,9,2,10,8)
  summarysheet.cells(rows.count,1).end(xlup).offset(2).resize(ubound(sp),ubound(sp,2))=sp
next