Estou com dificuldade em excluir as linhas de uma tabela, não só o conteúdo mas, que isso não afete as linhas da planilha. Gravei uma macro que resultou no seguinte código:
Range("Tabela193").Select
Selection.ListObject.ListRows(1).Delete
Selection.ListObject.ListRows(1).Delete
Selection.ListObject.ListRows(1).Delete
Isso funcionou mas como o número de linhas é variavel, tenho que colocar uma rotina que conte a quantidade de linhas e repita a linha "Selection.ListObject.ListRows(1).Delete" até a última linha. Outro detalhe é que se tiver uma única linha e esta sem dados, ignore a rotina "Selection.ListObject.ListRows(1).Delete" e passe a selecionar outra tabela para copiar os dados da mesma.