Get rid of empty rows
 

Hi. I am using the following line to select a range from
the active cell down to the last cell in the file. My
problem is that I want this to go to the last cell THAT
HAS DATA. There are several rows below this last cell
that are somehow recognized as being part of the range.
Is there either a way to delete the rows or to instruct
the macro to go to the last cell with data?

Range(Selection, ActiveCell.SpecialCells
(xlLastCell)).Select

Thanks,
Mike.
..

Get rid of empty rows
 

Hi Mike,

Try like this! ;)


Code:
--------------------

With ActiveCell
Range(.Item(1), .Parent.Cells.Find("*", , , , 1, 2)).Select
End With

--------------------



---
Message posted from http://www.ExcelForum.com/

Get rid of empty rows
 

Thanks! It works great.

Mike.
-----Original Message-----
Hi Mike,

Try like this! ;)


Code:
--------------------

With ActiveCell
Range(.Item(1), .Parent.Cells.Find("*", , , , 1,
2)).Select
End With

--------------------



---
Message posted from http://www.ExcelForum.com/

.