Up...

ActiveCell.EntireColumn.Find("", ActiveCell, xlValues, , , 2).Select
How it works...
The .Find method

Or select Find in your code and press F1 for help.