Instale uma cópia do código abaixo no módulo da planilha de interesse.
Para acessar o citado módulo clique com o direito na guia da planilha e escolha Exibir Código.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then Target.Offset(, 1).Value = Target.Value
If Target.Column = 2 Then Target.Offset(, -1).Value = Target.Value
End Sub
Após colar o código no módulo retorne para a planilha e faça os testes.
Para testar insira algum conteúdo, digitado ou colado, em qualquer célula da coluna A ou da coluna B. Funciona também se deletar conteúdo na coluna A ou na B.
Postado : 23/09/2023 9:24 pm