Sonda kalan satırları silme

[ankidod]

Arkadaşlar merhaba. Aşağıdaki makro ile bir sayfadan diğerine kopyalama yapıyorum. Bazen kopyaladığım yerdeki satır sayısı az oluyor. Ve ben yapıştırdığım yerdeki fazlalığı gözden kaçırabiliyorum. Yapıştırdığım sayfadaki fazla satırları tablodan silmemiz mümkün mü makro ile? Şimdiden teşekkürler.

Sub ProOlustur()
Range("Tablo4[[#All],[Sütun1]:[Sütun4]]").Select
    Selection.Copy
    Sheets("Sayfa1").Select
    Range("Tablo6[[#Headers],[Sütun1]]").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

 

[ankidod]

Dosyayı eklemeyi unutmuşum. Örnek Dosya ektedir. Aktar dedikten sonra kopyalama yapıyor. Fakat orada bir satır kalıyor. En sonda. O satırı silmek istiyorum mümkünse.

 

[Korhan Ayhan]

Aşağıdaki gibi deneyiniz.

Sub ProOlustur()
    Sheets("Sayfa1").Range("A13:C" & Rows.Count).ClearContents
    Sheets("Sayfa2").Range("A13:C" & Sheets("Sayfa2").Cells(Rows.Count, 1).End(3).Row).Copy
    Sheets("Sayfa1").Range("A13").PasteSpecial xlValues
    Application.CutCopyMode = False
End Sub

 

[ankidod]

Çok teşekkür ederim hocam. Çok güzel çalıştı. Ellerinize sağlık.