Değerleri Nasıl Yapıştırabiliriz?

Gelişmiş filtre ile ilgili adımları macroya dönüştürdüm. Ama ilgili sayfadan verileri getirirken direkt olarak yapıştırıyor ben o sayfanın biçimlerini istemiyorum. Macro da değişiklik ne yapmam, neresini düzeltmem gerekir.
Yardımcı olabilecek arkadaşlara teşekkür ederim.

Hazırladığım macro ise şudur:
Sub TakipListesi()
Range("Listem").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"Kriter"), CopyToRange:=Range("Extract"), Unique:=False
End Sub

.PasteSpecial xlPasteValues

kullanılabilir

Sayın @berduş bey makro konusunda bilgim az düzeyde sadece yaptığım işlemleri kaydedebiliyorum.
Acaba eklemiş olduğum makro kodunun neresini değiştirmeliyim. Teşekkür ederim.