Range(Cells(1, 1),Cells(1 + uBound(Array), 1)).Value = Array

This is an edited piece of code from a module I use within Access to
export recordset information to Excel. I haven't tested it directly in
Excel, but it should put you on the right path.