Can someone tell me what I'm not doing correctly?

Sub Test()
Dim aArray as Variant
Dim rng As Range
Range("A1").Select
Set rng = ActiveCell.CurrentRegion.Select
aArray.Value = rng.Value
End Sub