>>235

ついでに言うと、Rowsに対するDeleteは常にxlUpだからShift:=xlUpは不要