Advance Filter data to store array

Hi All
I need code for array here is code

Column A
India
Rusia
UAE
USA
USA
Mexico

i have Advanced filter the column A Fillter data to Sheet2 Column A


Dim rOldList As Range
Set rOldList = Sheet1.Range("A1", Sheet1.Range("A65536").End(xlUp))

rOldList.AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Sheet2.Cells(1, 1), Unique:=True


I need Sheet 2.Column A data Store to Array later on i can use
thi code to Criteria Range


Sheet5.Range("DATA").AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:="crnames", CopyToRange:=Range("DDRrange"),
Unique:=False


how can i store to Array in Filter Data after that i can use to
Criteria Range to same array.

Advanced Thaks,

Regards

Swathichandra , India, Chennai