Как выбрать позицию фильтра вместо фактического названия?

Question

Я пытаюсь определить фильтр моего списка динамически, вместо того, чтобы вводить его фактическое имя.

Sub Macro2()

ActiveSheet.Range("$C$2:$E$6").AutoFilter Field:=1, Criteria1:="April"

End Sub

В приведенном выше примере я не хочу печатать April. Я бы хотел набрать >Criteria1=1 или 2 и так далее. Конечным результатом является возможность использования фильтров в цикле for.

Спасибо