Public Sub ss()
Dim sht As Worksheet
Set sht = ThisWorkbook.Worksheets("sheet1")
sht.Cells(1, 1) = Now()
End Sub
Public Sub getrow()
Dim rNum As Integer
Dim sht As Worksheet
rNum = ActiveSheet.UsedRange.Rows.Count
Set sht = ThisWorkbook.Worksheets("sheet1")
rNum = rNum + 1
sht.Cells(rNum, 1) = Now()
End Sub