Makro ile Satır kopyalama

[exbet]

Arkadaşlar herkese selamlar;
Yapmaya çalıştığım,ancak bir türlü tam anlamıyla beceremediğim bir konu hakkında yardımınıza ihtiyacım var.Sorunum şu ;
Sayfa1 deki A4:W4 satırına her yeni veri geldiğinde Sayfa2 de A4 : W4 den başlayarak alt alta kopyalatmak istiyorum.
Bu konuda yardımcı olursanız sevinirim.

 

[YUSUF44]

Sub aktar()
Yeni = Sheets("Sayfa2").cells(Rows.Count, "A").end(3).row+1
[A4:W4].Copy Sheets("Sayfa2").Cells(Yeni, "A")
End sub

Yukardaki kodları bir modüle kopyalayınız.
Sayfa1'e bir düğme, nesne, resim vs ekleyiniz
Eklediğiniz nesneye sağ tıklayıp makro ata deyiniz
Dosyanızı makro İçerebilen Excel dosyası olarak kaydetmeyi unutmayınız.