sua segunda linha move a seleção da celula atual, para uma celula na coluna seguinte; assim se quiser ir de A para B, a tem que ser a celula ativa

vonzuben,

Boa tarde!

Segue minha sugestão.

Poderia dar um exemplo do seu código ?

Obrigado !

Eu nao tenho código, visto que não utilizo e nem sei seu objetivo; mas para se deslocar para celula ao lada da que pretende efetuar algum evento, e necessário que essa primeira celula seja a celula ativa

Poderia ser Algo +/- assim

Range("A1").Select
If Selection.Value <> "" Then
    Selection.Clear
    ActiveCell.Offset(0, 1).Select
End If

Funcionou, mas queria entender sobre essa parte do código, sendo que desativei esse parte e mesmo assim funcionou

If Target.Count > 1 Then
        Application.EnableEvents = True
        Exit Sub
End If

Tks

vonzuben,

Bom dia!

Essa parte do código é para evitar que o usuário possa selecionar mais de uma célula para deletar, o VBA emitir um erro e parar de funcionar a macro.

ATENÇÃO: Peço não utilizar citações nas suas respostas. Não há necessidade de citar todo o texto que lhe foi enviado. Se necessário ao estrito entendimento da mensagem, que você quer transmitir, você deve usar apenas pequenos trechos em citações.

Para o usuário selecionar mais de uma celula teria que selecionar e arrastar, sendo que ai já está fazendo de propósito, onde que já não responsabilizo rs
Mas pensando bem, vai que o usuário quer deletar tudo em massa, imagino que tem cada um rs
Obrigado !