Aktar kodlarında değişiklik

[Erdinç FIRTINA]

Değerli Üyeler;
Aşağıdaki kodlarla, verileri belirlediğim kriterlere göre ilgili sayfalarına aktarıyorum. Verileri aktarırken silerek aktarmak mümkün müdür?
Yani aktarılan verinin arşive gitmesini ve listeden çıkmasını istiyorum.

Yardımlarınız için şimdiden çok teşekkürler!!!
Sub Aktar()
Application.ScreenUpdating = False
Set SVV = Sheets("ÖĞRENCİBİLGİLERİ")
Set SA = Sheets("BAŞLAMAYACAK")
Set SB = Sheets("DÜŞÜNÜYOR")
SA.[B:BK].Clear
SB.[B:BK].Clear
SVV.Select
Range("A1").Select
Range("A1").AutoFilter Field:=63, Criteria1:="BAŞLAMAYACAK"
Range("A1").CurrentRegion.Copy SA.[B1]
Range("A1").AutoFilter Field:=63, Criteria1:="DÜŞÜNÜYOR"
Range("A1").CurrentRegion.Copy SB.[B1]
Range("A1").AutoFilter
Set SV = Nothing
Set SA = Nothing
Set SB = Nothing
Application.ScreenUpdating = True
End Sub

 

[Skorpiyon]

Sayın sefkatim,

Örnek bir dosya ekler misiniz ?

 

[Skorpiyon]

..........