The .Unlist command will remove the table properties while leaving the pretty formatting behind.
Replace Activecell reference with whatever anchoring method you need, but this is the syntax to do it:


ActiveCell.ListObject.Unlist