Brent,

Assuming column 1 is filled you can use variants on this

Dim lLastRow as Long
lLastRow = activesheet.range("a1").end(xldown).row

Robin Hammond
www.enhanceddatasystems.com

"Brent" wrote in message
...
I am trying to set up a macro to copy an array of data with a known number
of
columns, but an unknown number of rows into a spreadsheet. I have several
worksheets of data that are constantly being updated and would like to
copy
the data into one spreadsheet every week or so by running the macro. The
macro recognizes "ctrl+downarrow" and scrolls to the last row of data, but
if
I hit the down arrow or "enter", the visual basic records this as
selecting a
cell, and not scrolling down one space.

Any ideas? Thanks.