Is there an efficient way of creating a multidimensional
array from non-contiguous ranges?

The following only works because the ranges are contiguous:

Dim vaData As Variant
vaData = Range("A17:R18","A19:R20").Value