Try something like this:

r= Worksheets(Sheet10.Name).Cells(Rows.Count, 1).End(xlUp).row
Worksheets(Sheet10.Name).Range("A" & r & ":E" & r ).Select



"RigasMinho" wrote in message
ups.com...
Hey,
I have this where it finds the last empty cell
Worksheets(Sheet10.Name).Cells(Rows.Count, 1).End(xlUp).Select
ect
basically it selects the last empty cell in the worksheet.

However I need it to select the last empty row but only columns
A/B/C/D/E

I tried changing it to

Worksheets(Sheet10.Name).Range("A:E").End(xlUp).Se lect
but that does no go.

Any ideas?