something like this

Sub copydaysdata()
slr = Cells(Rows.Count, "a").End(xlUp).Row
dlr = Sheets("sheet2").Cells(Rows.Count, "a").End(xlUp).Row + 1
Range("a2:x" & slr).Copy _
Sheets("sheet2").Range("a" & dlr)
End Sub


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Jim Thomlinson" wrote in message
...
The idea of a button will work and there are lots of people around here
who
can help you. The code to do it however is not terribly easy and probably
not
a great project for a beginner. If you are interested in proceeding the
repy
back with a few more details. A couple of things we will need to know are
what type of database you are writting to and whether Referential
Integrity
is enforced on the table.
--
HTH...

Jim Thomlinson


"JoJo" wrote:

Folks


I have a small excel spreadsheet which I use for data entry at the end of
each day.
Rather than discard the previous day's data, I want to append this data
to a
database.

* What is the quickest or easiest method to accomplish this goal ?

One possibility is to be able to press a button (connected to the
appropriate code) to manually transfer the data in the spreadsheet to the
database.



Thanks,
JoJo.








,