Son üç satırı silme

[suphi75]

Bir konuda yardımınıza ihtiyaç duyuyorum.
Excel'de A sutununda veri olan en son satıra giderek bunu ve bundan önceki iki satırı ( yani son üç satırı ) tamamen silmesini istiyorum . Ama yapabildiğim ancak A sutununun son satırındaki hücresi sildirebilmek.

Yardım ederseniz sevinirim.

 

[veyselemre]

Sub deneme()
    SON = [A65536].End(3).Row
    Rows(SON - 2 & ":" & SON).Delete SHIFT:=3
End Sub

 

[suphi75]

Veyselemre teşekkür ederim.

 

[Seyit Tiken]

Buda farklı bir çözüm.

Sub Düğme1_Tıklat()
For s = 1 To 3
[a6500].End(3).Delete
Next
End Sub