This solution works great. Thanks so much for the help!

On Sat, 17 Jun 2006 16:48:33 +0200, "Ardus Petus"
wrote:

With error trapping:

With Activecell
if .column 1 and .row < rows.count then
.cut destination:=.offset(1,-1)
end if
end with

HTH