Macro + Filtro + Criterio Variable

Para asignar criterios personalizado a los filtrajes grabados, debes usar una variable auxiliar.
Supongo que tú te paras en la celda que usas como criterio y le das Ctrl+C y ejecutas la macro, bueno, no debes darle Ctrl+C, suponiendo que te paras en A1.
'Declaras la variable auxiliar
dim vartemp as string
'te paras en A1
range("a1").select
'recuperas el valor de A1 en la variable adicional
vartemp = activecell
'luego la usas como criterio:
Selection.AutoFilter Field:=2, Criteria1:=vartemp, Operator:=x1And
'.
'.
'.
'Te doy un dato adicional.
'Si tu criterio es por ejemplo, filtrar valores mayores o iguales a 100, la macro grabado quedaría:
Selection.AutoFilter Field:=2, Criteria1:=">=100", Operator:=x1And
'Para personalizar este criterio, debes añadir ">=" depués de capturar el valor de la celda A1, como en el ejemplo.:
range("a1").select
vartemp = activecell
vartemp = ">=" & vartemp
Selection.AutoFilter Field:=2, Criteria1:=vartemp, Operator:=x1And

Perdonen comunidad, pero me fije que en vez de proponer una nueva interrogante, le di a responder como si quisiera aportar algo, me disculpo por el descuido.

Después de seguí buscando conseguí la solución a la interrogante que le plantee, la solución no era tan complicada como me lo imagine, aplique un poco de lógica y y di con ella, es posible que exista otra solución, pero en mi caso esta fue la que me resulto. Les hago el aporte por si a alguien le interesa la respuesta.

Solo debía concatenar la instrucción con la variable Criteria2:="=*" & NroDoc & "*", quedando todo así.

.Range("A" & FInc - 1, "I" & UltF).AutoFilter Field:=4, Criteria1:=NroDoc, Operator:=xlOr, Criteria2:="=*" & NroDoc & "*".

Una vez más me disculpo con la comunidad y paso a despedirme

Att. CR