Boa noite!!

Eu não entendi

Sub AleVBA_10745()
   Range("B2:D1000").ClearContents
End Sub

Att

Após efectuar a pesquisa, pretendo eliminar o registo completo, ex: nome, telefone,morada, etc... esses dados estão separados em colunas na mesma linha. O que pretendo é criar um botão ue eliminar a linha completa menos os dados que estão na coluna "A"

Boa noite!!

Por favor, teste meu código, se não for isso, poste seu aquivo modelo compactado!!

Att

Vou testar, Mas só amanhã direi algo, pois já é muito Tarde, pelo menos aqui em Portugal. Obrigado, então amanhã direi algo

Com esse código apago o intervalo todo. Apenas quero apagar as colunas B,C,D,I.

Tente esse:

    Range("B2:B1000,D2:D1000,C2:C1000,I2:I1000").ClearContents

E como vc vai excluir a linha? Vai selecionar e rodar a macro? Vai ser por algum critério?