Copiar el texto de una celda y filtrarlo en otra hoja

Al programar la macro esa celda copiada queda como constante en la programación así que si cambio de texto no me filtra otro, como le hago, cambiar LA PURISIMA PALETERÍA Y NEVERIA S.A. DE C.V para que me copie cualquier texto que este en la celda

Range("D13:L36").Select
Selection.ClearContents
Range("A1").Select
Selection.Copy
Sheets(" Datos Reg.Producto").Select
ActiveSheet.Range("$A$8:$AA$18").AutoFilter Field:=2, Criteria1:= _
"=LA PURISIMA PALETERIA Y NEVERIA S.A. DE C.V.", Operator:=xlAnd, Criteria2 _
:="=LA PURISIMA PALETERIA Y NEVERIA S.A. DE C.V."
Range("D17:AA26").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("CONSULTA").Select
Range("D13:L36").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True