Issue with a selection into an array.

I am inputting from a spreadsheet a selection into an array.
If the selection has more then one argument everything seems to work fine.
However if the selection has only one item in the array it seems not to work correctly.
And we receive the following error type mismatch
how can we make it work if there is only one item in the array.

ActiveSheet.Range("i12").End(xlDown).Select
Sku_Arr = Selection
Set aib_wkb = Workbooks.Open("c:\excel\games\aib.xlsm")
Range("A2").Resize(UBound(Sku_Arr, 1), UBound(Sku_Arr, 2)) = Sku_Arr

Thank you
Here is the code we are using: