excerl vba array to range
arrayData = Array("A", "B", "C", "D", "E") [a1].Resize(UBound(arrayData)) = Application.Transpose(arrayData)
arrayData = Array("A", "B", "C", "D", "E") [a1].Resize(UBound(arrayData)) = Application.Transpose(arrayData)