Buton ile tarih

[BARGENX]

Selam dostlar.
Bir butona bastığımda bugünün tarihini ekleyecek. İlk bastığımda a1, sonra a2...(yani a sütunundaki ilk boş yere)
Böyle bir şey olabilir mi?

 

[Haluk]

Sub Test()
    Range("A" & Range("A" & Rows.Count).End(xlUp).Row + 1) = Date
End Sub

.

 

[BARGENX]

Haluk kardeşim çoookkk sağol.