Hi Bob,

This should do it

With ActiveCell.Offset(16, 0).End(xlDown)
.Value = Format(Date, "dd mm yyyy")
.Offset(0, 1).Value = "PAYMENT RECEIVED"
End With

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Bob" wrote in message ...


--
-- Can this be scripted into a MacroAfter active cell
go down 16 cells, then go down the column to the next empty cell and
enter (Date)
.Offset(0, 1).Value = "PAYMENT RECEIVED"

So A has the date and B has payment received



Thanks in advance.........Bob