Set rng = Range(Cells(2,2),Cells(2,2).End(xldown))
rng.select

if you have empty cells within the data

Set rng = Range(Cells(2,2),Cells(rows.count,2).End(xlup))
rng.select

--
Regards,
Tom Ogilvy

"Randy Reese" wrote in message
...
I am importing a text report into four different worksheets. I have
that part working, Now I bringing the data into B2. A column is
reserved for checkboxes and Row 1 for Column Headings. I need the code
to select b2, downward till last nonempty cell, to apply TextToColumns
method. If this is not clear let me know. Working on 3 hours of sleep.