select last cell with a value in a colom

[cav~firez22]

How can i get a macro to select the last cell WITH data in colum D,
and enter the formula "=today()" and then copy and paste the value of that cell?

can anyone help me please??

 

[texasalynn]

Sub cdte()
Dim LastRow As Long
LastRow = Range("D65536").End(xlUp).Row
Range("D" & LastRow) = "=NOW()"

End Sub