Butondaki kodları aşağıdaki ile değiştiriniz.
Kod:
Selection.EntireRow.Cut
Sheets("Sayfa2").Select
Range("a1").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveSheet.Paste
Sheets("Sayfa1").Select
Selection.EntireRow.Delete