Süzülen bilgiyi başka bir sayfaya otomatik yazdırmak

[fatihenginer]

Arkadaşlar alt alta
ALİ
VELİ
CENGİZ
ALİ
VELİ
CENGİZ
ALİ
VELİ
CENGİZ

şeklinde yazıp bunların içinden diyelim ki ALİ'yi süzdürdüğümde 3 tane
ALİ yazısı çıkıyor. Ben bu ALİ yazısının Sayfa2 de diyelim ki A8 e kopyalamasını istiyorum. Bunu nasıl yapabiliriz. Yardımcı olursanız çok sevinirim.

 

[fatihenginer]

Arkadaşlar yardımlarınızı bekliyorum. Bi el atıverseniz çok iyi olacak. :yardim:

 

[Orion1]

Dosyanız ektedir.

Sub DoluÇerçeve1_Tıklat()
Dim sh As Worksheet, sat As Long
Sheets("Sayfa1").Select
Set sh = Sheets("Sayfa2")
sh.Range("A2:A" & Rows.Count).Clear
sat = Cells(Rows.Count, "A").End(xlUp).Row
Range("A1").AutoFilter
Range("A1").AutoFilter field:=1, Criteria1:=Range("C1").Value
Range("A2:A" & sat).SpecialCells(xlCellTypeVisible).Copy sh.Range("A2")
Range("A1").AutoFilter
sh.Select
Application.ScreenUpdating = True
Set sh = Nothing
MsgBox "Veriler Süzüldü." & vbLf & _
    "evrengizlen@hotmail.com", vbOKOnly + vbInformation, Application.UserName

End Sub