'both these declarations will workDim arTesting As Variant Dim arTesting() As Variant arTesting = Range("A1:A12").Value
Dim arMyArray() As Variant arMyArray = Range("A1:D5").Value Range("A1:D5").Value = arMyArray