The code find the last cell with data in B and add one row
I think your cells are not empty ?


--
Regards Ron de Bruin
http://www.rondebruin.nl



"KelliInCali" wrote in message ...
Ron... Thanks, but doesn't seem to do the trick. When I sort B, I am left
with random data in various cols in rows below last data in B. So I need to
delete all rows after last "B" data. This doesn't seem to work for that.

Manually, I just do Ctrl/Shift/Dwn "B" to find last row, then select very
next row and Ctrl/Shft/Dwn again to select from there to 65536 and then
delete. But I cannot figure out how to duplicate that in macro.

-kelli

"Ron de Bruin" wrote:

Hi KelliInCali

Try this

Dim lr As Long
lr = Range("B" & Rows.Count).End(xlUp).Offset(1, 0).Row
Range("A" & lr & ":IV" & Rows.Count).Delete


--
Regards Ron de Bruin
http://www.rondebruin.nl



"KelliInCali" wrote in message ...
Hi. I need to delete data in all the rows below the last filled row for
column B. Can anyone give me code for that? Thanks in advance, Kelli