Naudoti OnKey eventa ir tikrinti kokia knopke paspausta?

"Tadas"  wrote in message news:jsre2a$e1b$1@trimpas.omnitel.net...

Sveiki,
yra kodas:
--------------------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 5 Then
EIL_SKAICIUS = 0
ESAMA_EILUTE = ActiveCell.Row
EIL_SKAICIUS = Application.CountA(Range("A:A"))
Sheets("SARASAS").Cells(EIL_SKAICIUS + 1, 2).Value =
Sheets("SARASAS").Cells(ESAMA_EILUTE - 1, 5).Value
Sheets("SARASAS").Cells(EIL_SKAICIUS + 1, 3).Value =
Sheets("SARASAS").Cells(ESAMA_EILUTE - 1, 3).Value
Sheets("SARASAS").Cells(EIL_SKAICIUS + 1, 4).Value =
Sheets("SARASAS").Cells(ESAMA_EILUTE - 1, 4).Value
End If
End Sub

--------------------------------------------------------------------
Dabar veikia taip. Jei 5-ame stulpelyje irasome bet kurioje celeje reiksme,
tai atomatiskai sukuriama nauja eilute saraso gale ir nukopijuojama 3,4,5
stulpeliu informacija tos eilutes, kurios 5-ame stulpelyje buvo padarytas
irasas i naujai saraso gale sukurtos eilutes 2,3,4 stulpelius.

Kaip padaryti, kad kodas nesuveiktu, paspaudus DELETE klavisa 5-o stulpelio
bet kurioje celeje, taciau DELETE klaviso funkcija suveiktu (istrintu celeje
esancia reiksme) ?