Metodo Key em VBA

Alguem sabe como utilizar KeyDow e KeyUp no objeto Worksheet "Range"?

Exemplo: ao deletar a celula Range("A1"), a celula Range("N1") seja deletada no mesmo instante sem utilizar click.

Fiz um exemplo que funciona assim:

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("b14").Value <= 0 Then

Range("N14").Value = ""

CmdVoltaPreço1.Visible = True
TxtCodigo1.Visible = False

End If
End Sub

O Resultado é o Excel entrando em Loop automático.

Ou este exemplo:

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("b14").Value <= 0 Then

Range("n14").Select
Selection.ClearContents

TxtCodigo1.Visible = False

End If
End Sub

O Resultado é Depuração sobre a linha Selection.ClearContents