Ola amigos bom dia!

Alguém poderia me ajudar??

Tenho uma planilha em que preciso fazer uma busca de uma em outra, ou seja, copio o critério que esta na célula "XX" da Plan 1, vou na Plan 2 e através de auto filtro, tento buscar, mas não estou conseguindo, as informações quando fixas, busca, mas quando altero o que eu quero buscar ai não, alterei o criterio fixo pela Range mas não esta funcionando, acho que não esta diferenciando as abas, segue abaixo as macros realizadas:

Antes:

Sub Macro6()
'
' Macro6 Macro
'

'
Range("C7").Select
Selection.Copy
ActiveSheet.Previous.Select
Range("D2202").Select
Selection.End(xlUp).Select
Range("D2").Select
ActiveSheet.Range("$B$2:$O$3498").AutoFilter Field:=3, Criteria1:="CASCAVEL" _
, Operator:=xlAnd
ActiveSheet.Next.Select
Range("F7").Select
Application.CutCopyMode = False
Selection.Copy
ActiveSheet.Previous.Select
Range("F2").Select
ActiveSheet.Range("$B$2:$O$3498").AutoFilter Field:=5, Criteria1:= _
="MANAUS", Operator:=xlAnd
Range("D3504").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "OBRIGADO POR UTILIZAR NOSSOS SERVIÇOS!! "
Range("D2").Select
End Sub

Depois:

Sub Macro6()
'
' Macro6 Macro
'

'
Range("C7").Select
Selection.Copy
ActiveSheet.Previous.Select
Range("D2202").Select
Selection.End(xlUp).Select
Range("D2").Select
ActiveSheet.Range("$B$2:$O$3498").AutoFilter Field:=3, Criteria1:=Range("C7") _
, Operator:=xlAnd
ActiveSheet.Next.Select
Range("F7").Select
Application.CutCopyMode = False
Selection.Copy
ActiveSheet.Previous.Select
Range("F2").Select
ActiveSheet.Range("$B$2:$O$3498").AutoFilter Field:=5, Criteria1:= _
Range("F7"), Operator:=xlAnd
Range("D3504").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "OBRIGADO POR UTILIZAR NOSSOS SERVIÇOS!! "
Range("D2").Select
End Sub