Soru Aktarma yaptığın satıra tarih yazdırma

[sirkülasyon]

Private Sub CommandButton3_Click()

Sheets("A").Select
Son_Dolu_Satir = Sheets("A").Range("b65536").End(xlUp).Row
Bos_Satir = Son_Dolu_Satir + 1
Sheets("A").Range("A" & Bos_Satir).Value = Application.WorksheetFunction.Max(Sheets("A").Range("A:A")) + 1
Sheets("A").Range("B" & Bos_Satir).Value = TextBox2.Text
Sheets("A").Range("C" & Bos_Satir).Value = TextBox1.Text
Sheets("A").Range("D" & Bos_Satir).Value = TextBox3.Text

"Sheets("B").Range("Z").Value= Date "

B sayfasından A sayfasına aktarıyorum. Yapmak istediğim ise B sayfasında hangi satırı aktarıyorsam o satırın Z sütununa da tarih yazdırmak istiyorum.
Yardımcı olabilir misiniz?

 

[YUSUF44]

Bu kodlarda B sayfasından veri alındığına dair bir satır yok, veriler textboxlardan alınıyor.