Este fórum está sendo desativado

[marcoafdamasceno]

Caros, bom dia.

Estou realizando uma macro que no final dela preciso excluir as linhas que foram selecionadas no inicio da macro. Nos testes que realizei consegui fazer com a toda a tabela fosse excluída ou que a exclusão travasse em uma determinada linha, mas o problema é que nem sempre a posição da linha será a mesma.
Conseguem me ajudar com alguma solução para este caso?

"
Selection.Copy
Sheets("Log_Entregas").Select
Range("B3").Select
Selection.Insert Shift:=xlDown
Sheets("Controle").Select
Application.CutCopyMode = False
Selection.ListObject.ListRows(3).Delete
Range("D2").Select
"

Desde já agradeço pela ajuda.

[osvaldomp]

Experimente substituir o número 3 conforme abaixo. Talvez seja necessário subtrair ou adicionar 1 ou 2 a ActiveCell.Row para coincidir o número da linha da planilha com o número da linha da Tabela, depende da linha inicial da Tabela.

Selection.ListObject.ListRows(3).Delete

Selection.ListObject.ListRows(ActiveCell.Row).Delete