Delete Çözümü

[constantinepolisi]

Merhaba,
Aşağıdaki kod ile aktif hücrenin A ve O aralığını seçiyoruz, hangi hücrede olursam olayım delete yaptığımda aktif olan satırın içeriği siliniyor. Bu kadar şeffaf aktif hücrenin satırını belirleyecek, delete yapıldığında satırın değil de o hücrenin içeriğini silecek kod var mıdır? Ya da buna çözüm getire bilir miyiz?
Bir çözüm gösterebilir misiniz?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
sat = ActiveCell.Row
Range(ActiveCell.Address & ", A" & sat & ":O" & sat).Select
End Sub