--
-- 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