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) ?