Extracting From Array

The following code will return everything in the array. What I would like for it do is:

Case 0 - I want to return first two ie, "A" and "B"
Case 1 - I want to return "C" through "F"
Case 2 - I want to return everything else that are not in MyA

Dim MyA As Variant
Dim i As Long
MyA = Array("A", "B","C","D","E","F","G")
For i = 0 To UBound(MyA)
Select Case ListBox1.ListIndex
Case 0: Rng.AutoFilter field:=5, Criteria1:=MyA(i)
Set Rng2 = ws.AutoFilter.Range
Rng2.Offset(1).Copy Sheets("Summary").Cells(Rows.Count, 1).End(xlUp)(2)
ws.AutoFilterMode = False
End Select
Next i