deleting partial row

hi everybody!
i have this code that find the value "1" in a data base, it copies a range to another sheet and then it should delete the range that was copied, it must be delete and not clear because the values below should go up in order to copy in the next run below the last row in the data base.
im having problems with the "xlshiftup" it says is a "invalid use of property"

Please Login or Register  to view this content.

could you help me to figure it out what is wrong??
thanks

thanks, it worked!!!