I have a macro where I do a lot of things, but I require to go to 65,000 of
the original column -- which is not predicatable. Whatever the active cell
the next 2000 rows have their font turned white. However, I don't always have
2000 rows and I need to delete all the extra rows so that extra pages are not
printed.

'The column of active cell
Dim OrigCol as Range
OrigCol=ActiveCell.Column
' Code from recorded macro -- leaves me at the last cell -- which is not
predictable

I would now like to get to row 65000 of the Original Column

Please help!!