Помещение критериев расширенного фильтра в код VBA

Question

Это код, который фильтрует мою таблицу на основе критериев на рабочем листе:

   Range("tVCD[#All]").AdvancedFilter Action:=xlFilterInPlace, _
             CriteriaRange:= Range("A10:C12"), Unique:=False

Он работает нормально, но мой рабочий лист забит другими вещами, а критерии в диапазоне никогдаменяется.

Можно ли заменить CriteriaRange:= Range("A10:C12") чем-то, что заменяет содержимое этого диапазона?