try changing one character in your code:
Cell.ClearContents