işaretli olan satırı aktarma

[buseen]

sayfa 1 de işaretletlenmiş olan satırı, B sutunuda kayıtlı olan isme sayfa açıp aktarmak istiyorum
böyle bir örnek bulamadım

 

[buseen]

sayın evren örnek var ama

Sub xleriaktar()
Sheets("Sayfa1").Select
Sheets("Sayfa2").Cells.ClearContents
sat = 1
For i = 1 To Cells(65536, "A").End(xlUp).Row
If UCase(Cells(i, "A").Value) = "X" Then
Sheets("Sayfa2").Range(Sheets("Sayfa2").Cells(sat, "A"), _
Sheets("Sayfa2").Cells(sat, "IV")).Value = _
Range(Cells(i, "A"), Cells(i, "IV")).Value
sat = sat + 1
End If
Next i
MsgBox "Akatrım tamamlandı"

End Sub

 

[Memleket]

Ben çalıştıradım yardımcı olur musunuz?