aktarılan veriyi silmek

[polis-53]

Merhaba arkadaşlar benim bir excel dosyam var bu dosyada bir kişinin birden fazla kaydı var ben bu kayıtlardan I sütunundaki en büyük tarihi aşağıdaki kodla sayfa3 e aktarıyorum.
Benim istediğim aktardıklarımı Sayfa1 den de silsin

Sub SonListele()
Set sv = Sheets("Sayfa1")
Set sl = Sheets("Sayfa3")
Dim i As Long
i = [A65536].End(3).Row
sl.Cells.ClearContents
sv.Range("A1:I" & i).Copy sl.[A1]

sl.Select
Application.ScreenUpdating = False

Range("A2:I" & i).Sort Key1:=[A2], Order1:=xlAscending, Key2:=[I2], Order2:=xlDescending

For i = i To 3 Step -1
If Cells(i, "A") = Cells(i - 1, "A") Then Rows(i).Delete
Next i


End Sub

 

[Muzaffer Ali]

sv.Range("A1:I" & i).Copy sl.[A1]

satırının altına

sv.Range("A1:I" & i).Delete Shift:=xlUp

satırını ekleyin