Hücrede yazılanları başka bir sayfaya taşımak

[ensartas]

Arkadaşlar;

A2: D2 hücrelerimin içine birtakım veriler giricem
Bir tane de Komut düğmesi ekleyerek ona bastığım da
A2: D2 hücrelerine girdiğim değerler Sayfa3'e gönderilsin.
Ama sürekli bir gönderim olacağı için her eklediğim veri bir sonrakinin verinin altına gelsin ki karışıklık olmasın.
Buraya kadar olan kısımda bana yardımcı olabilirseniz bende daha sonrasında
başka bir formülle aynı değerlere sahip olanları alt alta sıralayacam
dediğim gibi ilk dediğim konusunda nasıl bir yol izlemeliyim

Şimdiden teşekkür ederim.

 

[Orion1]

Ekli dosyayı inceleyiniz.

Sub kaydet()
Sheets("Sayfa1").Select
If Range("A2") = "" Then
    MsgBox "A2 Hücresi Boş Olamaz..!!", vbCritical
    Range("A2").Select
    Exit Sub
End If
sat = Sheets("Sayfa3").Cells(65536, "A").End(xlUp).Row + 1
adr = Range(Cells(sat, "A"), Cells(sat, "D")).Address
Sheets("Sayfa3").Range(adr).Value = Range("A2:D2").Value
MsgBox "Sayfa3'e Kayıt yapıldı..!!", vbOKOnly + vbInformation
End Sub

 

[ensartas]

Yardımlarınız için teşekkür ederim. Bu kodlar tam olarak isteğime karşılık veriyor.
Tekrar teşekkür eder iyi bayramlar dilerim.

 

[Orion1]

Yardımlarınız için teşekkür ederim. Bu kodlar tam olarak isteğime karşılık veriyor.
Tekrar teşekkür eder iyi bayramlar dilerim.

Rica ederim.
İyi bayramlar.