How can I modify my VBA code to delete duplicates while keeping one and maintaining original positio