Best way is to use vba as Moo has given you.

another option aside from the given two is creating a circular reference.And enabling Iteration.

say date/time will be in B1 down.

in B1 =IF(A1<>"",IF(B1="",NOW(),B1),"") -fill formula down down.