On 3 Dec, 10:42, Gary''s Student
wrote:
newrow=cells(rows.count,"B").end(xlup).row+1
--
Gary''s Student - gsnu2007b


Thanks, have tried this but can't get it to work.... have found this
one on the web which seems OK

Range("B13").End(xlDown).Offset(1, 0).Select