buton yardımı

[garib5]

Arkadaşlar ekte gönderdiğim dosyanda kırımızı ile gösterdiğim giriş sayfasındaki bilgileri yazdır ve ekle buttonu ile kayıt sayfasına eklesin hemde yazdırsın istiyorum.çıktıda buton gözükmesin .Daha öncede böyle bir şey için arakdaşlar yardımcı oldular emeği geçenlere teşekkür ediyorum.
ayrıca bu işi öğrenmek istiyorum.yardımcı olursanız sevinirim.

 

[leumruk]

Merhaba.

Sub Ekle()
Set s = Sheets("KAYIT")
Sat = s.[a65536].End(3).Row + 1
s.Cells(Sat, "a") = Sat - 1
s.Cells(Sat, "b") = [b6]
s.Cells(Sat, "c") = [b5]
s.Cells(Sat, "d") = [b4]
s.Cells(Sat, "e") = Format([b10], "mm.dd.yyyy")
s.Cells(Sat, "h") = [b12]
MsgBox "İşlem tamam."
End Sub