Não sei por que você gostaria de fazer isso. Mas a macro a seguir deve funcionar (porque eu acabei de testar)
Supondo que o nome da sua tabela seja Tabela1, isso limpará todo o conteúdo e o esvaziará:
Sub ClearChoice()
ActiveSheet.ListObjects("Table1").ListColumns(4).DataBodyRange.ClearContents
End Sub
Como alternativa, você pode configurá-lo como "nenhum", se desejar:
Sub ClearChoice()
ActiveSheet.ListObjects("Table1").ListColumns(4).DataBodyRange.Value = "none"
End Sub