Range("A" & Rows.Count).End(xlUp).Offset(1,0).Select

Change the "A" to a suitable column reference.

This works if there are gaps in the data. If there aren't:

Range("A1").End(xlDown).Offset(1,0).Select

Regards

Trevor


"GJR3599" wrote in message
...
I am trying to get a macro to find the last line of data (Ctrl+Shift+Down)
and then go down one line...this keystroking hard-codes the line i have
selected but I need it to be able to run without doing so. Any thoughts?