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

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

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

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

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

Yeah its replacing my last cell with data in!

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