Tenho uma formatação condicional vinculada à seleção de célula (Em VBA). Toda vez que se clica numa célula, certo range da linha formata diferente. Funciona bem, mas após a execução da macro fico sem o recurso de desfazer.

Para fugir disso, gostaria de executar uma macro para achar um valor na planilha, apagar valores existentes em uma coluna e escrever um valor apenas na célula corresponde à linha encontrada. Desta forma consigo uma formatação condicional vinculada ao valor escrito que só vai ser alterada quando a macro for executada outra vez

O Objetivo é na Plan1 executar a macro que procura um valor da Plan1 e vai para a Plan2 e destaca a linha encontrada.

Em VBA preciso 2 ações na mesma macro:

1) Apagar os valores da Plan2!K3:K250

Já tenho uma macro que faz isso:

Sub Apaga_Coluna_K()
Sheets("plan2").Visible = True
Sheets("plan2").Select
Range("K3:K250").ClearContents
End Sub

Mas preciso acrescentar no mesmo código:

2) Buscar o valor de Plan1!A3 em Plan2!A3:A250 e escrever o valor “1” na célula da Plan2, coluna K da linha encontrada (correspondente) em K3:K250

Equivalente a: Índice(Plan2!K3:K250;CORRESP(A3; Plan2!A3:A250;0)), mas não somente trazendo o valor da célula, e sim escrevendo nela. Dessa forma, nessa coluna haverá somente uma célula com o valor escrito, permitindo a formatação condicional somente nessa linha.

Agradeço qualquer orientação!