It's still not clear what you mean by assign, do you want to put the values in that range in the first dimension of that array?
Do you want to put each cell in the range as an object in the array?
If you wanted to do either of those you would need to loop through the array and range setting the items as you go.
Dim c As Range
Dim arrVars(1 To 6, 1 To 50)
For Each c In Range("A1:A50")
Set arrVars(1, c.Row) = c