try
nextrow=cells(activecell.row,activecell.column).en d(xldown).row-1

--
Don Guillett
SalesAid Software

"BorisS" wrote in message
...
I thought I had asked this before and had the answer, but cannot find it in
searching. Need a macro that will, from activecell, drag down to next
non-blank cell minus one. In other words, the sequence I'd do would be

shft-ctrl-down
up arrow
ctrl-d

And I need it to be dynamic, in that the size is different each time, even
though maybe that's obvious

Any help would be appreciated.

Thx.
--
Boris