CopyFromRecordset on Multi-Area ranges?

[Kluaoha]

I wish to export data to a multi-area range on an Excel sheet. I have it as a named range, "Data", and the following just writes the records as a contiguous chunk:

...
Dim XLsht As Excel.Worksheet
Dim rs As DAO.Recordset
...
XLsht.range("Data").CopyFromRecordset rs

Is there any way to do this without having to go cell by cell?
Thanks!

[June7]

I expect not. Either break up the range into multiple named ranges and do multiple exports or code that writes cell by cell.