Celle dato

I en log jeg har lavet i forbindelse med en turnusplan, vil jeg godt have vist datoen for den dag der er blevet ændret.
Jeg for i forvejen vist hvilken dato ændringen er foretaget.

I turnusplanen har hver række en dato stående i kolonne D. Det er den dato jeg gerne vil have vist.

Udklip af den kode jeg bruger.
rng.Value = Now
rng.Offset(0, 1) =  'Dato fra celle i kolonne D i samme række som cell.Address
rng.Offset(0, 2) = cell.Address(False, False)
rng.Offset(0, 3) = "'" & cell.Formula
rng.Offset(0, 4) = Environ("UserName")