Pasar valores filtrados a una Matriz

De una tabla con 12000 registros y 12 columnas hago los siguientes filtros:

Worksheets("DATOS").ListObjects("Tabla1").Range.AutoFilter Field:=1, Criteria1:= _
"=Cliente", Operator:=xlOr, Criteria2:="=Grupo precio cliente"
Worksheets("DATOS").ListObjects("Tabla1").Range.AutoFilter Field:=6, Criteria1:= _
">=" & Date, Operator:=xlOr, Criteria2:=Empty

Y quiero pasar los registros visibles a una Matriz:

Matriz()= Worksheets("DATOS").ListObjects("Tabla1").Range.SpecialCells(xlCellTypeVisible).Value

Solo pasa el primer registro visible.

Si existen 10 registros visibles, pero que tienen intercalados líneas ocultas por los filtros solo pasa la primera y no todas las visibles. ¿Qué puedo hacer para que las inserte todas en la matriz de una sola vez, sin tener que recorrer toda la tabla?