Citerios de filtro en macro

Buenos días amigos,
Necesito ayuda en conseguir como puedo sacar la lista del autofiltro y pegarla, y también de ser posible, saber cuantos criterios hay. (En mi caso como 15, pero varia en cada hoja). Les dejo un ejemplo de la macro a ver si por favor la pueden completar.
Gracias!
sub filtro ()
Range("A1: B10").Select
Selection.AutoFilter
' Quisiera luego la lista de los criterios en "C20"
Range("c20").Select
Criterias.List.Paste '(esta formula es imaginaria, cual seria la correcta?)
'Por ejemplo si son tres Criterios, entonces c20=enero, c21=febrero, c22=marzo
For siguiente = 0 To 2 ' deberia ser for siguiente = 0 to "cantidad de criterios"
Range("A1").Select
Selection.AutoFilter Field:=1, Criteria1:=Range("C20").Offset(siguiente, 0)
Range("D20").Offset(siguiente, 0).Value = siguiente
Next siguiente
End Sub