Tomás Vásquez Fórum

Estou com um problema em uma planilha, em que por exemplo nas células A1 e B1, quando eu digitar na célula A1 os dados que tiver na célula A2 sejam excluídos, e pule para C1 e se digitar na célula B1 os dados da célula A1 sejam excluídos e pule para C1.

Na macro está assim:

Case Range("A1").Address
Range("B1").Select
Selection.ClearContents
Range("C1").Select

Case Range("B1").Address
Range("A1").Select
Selection.ClearContents
Range("C1").Select


tenho utilizado em macro dentro da PLAN1.

O problema é que quando digito na célula B1 por exemplo ela apaga a A1 mas também a célula A2

Já utilizei:
Range("A1").Select
Selection.ClearContents

Selection.Copy
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

Alguém teria alguma solução?