Sometimes takes out the last data and replaces it then sometimes goes right
to the bottom of the sheet


"Frank Kabel" wrote in message
...
Hi Bob
are you sure :-)
works for me. You may post the complete code you have used (including
Bob's suggestion)

--
Regards
Frank Kabel
Frankfurt, Germany

"Bob" schrieb im Newsbeitrag
...
that just highlighted the first 8 columns in my work book!


"Bob Phillips" wrote in message
...
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