Lembrei que tem como selecionar as células em branco e então deu tudo certo hehe Segue o código simplificado, ele apenas deleta a célula que estiver ...

eu comecei a mexer com areas nomeadas agora mas já que vc jpá tem uma base pega a primeira linha da tabela li=Range(nome tabela).Row pega a ultima...