Thanks Rick, works fine.

Thanks also to Matthew for your assistance

"Rick Rothstein" wrote:

Give this macro a try...

Sub AddDateAtBottom()
Dim LastUsedRow As Long
With ActiveSheet
LastUsedRow = .Cells.Find(What:="*", SearchOrder:=xlRows, _
SearchDirection:=xlPrevious).Row
.Cells(LastUsedRow + 2, "A").Value = Date
.Cells(LastUsedRow + 3, "A").Value = "Some additional text"
End With
End Sub

--
Rick (MVP - Excel)


"CELCAT" wrote in message
...
Hi Matthew,

Thanks for the quick response. Sorry for not being clearer.

I'm importing a stored proceedure from SQL and it's populating the
worksheet
but I'd like to add the date on one line and some text under it leaving a
1
row space after the last row of data. The trouble I have is that the
amount
of data will very so the last row will keep changing. Does that make
sense?

Regards

Chris

"Matthew Herbert" wrote:

On Aug 13, 1:08 pm, CELCAT wrote:
Hello all,

I'm trying to add the current date and some text to the bottom of a
worksheet though the worksheet will have changing numbers of rows.
Anyone
know how to do this?

Regards

Chris

Chris,

Can you define "the bottom of a worksheet"? (UsedRange will return
the used range of a worksheet (which you can leverage to get the last
row), going to the last row of a specified column and then doing .End
(xlUp) will get you to the "last" non-empty cell in a column, and
there are other ways depending on what you are trying to accomplish).
Without knowing your definition of "bottom" it's hard to tell what
will be most useful to you.

Best,

Matthew Herbert