I'm facing same issues as yours, now have been fixed. As per explaining from the comment array is 2d array. you need to make it your array to 2d array.

For Each myCell In Rng
 ReDim Preserve arr(i,1)
 arr(i,1) = myCell
 i = i + 1
Next myCell
.Range("H10").Resize(UBound(arr, 1),1).Value = arr