How Can I copy all value of the array into the range?
 

Hello Everyone,

I' m trying put an array data into a range as following,

Dim rng As Range
Dim s As Worksheet
Dim arr

Set s = Sheet1
Set rng = Range(s.Cells(1, 1), s.Cells(10, 1))

arr = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J")

rng.Value = arr

but All cells of the range is filled with "A".

How Can I copy all value of the array into the range as following,
A1 - "A"
A2 - "B"
A3 - "C"
....
A10 - "J"

Thanks in advance.