excel iki butonu aynıanda kaydırma

[obsesyonur]

merhaba
a1 ve b1 sütunlarından oluşan bir excel sayfam var ve sayfada 2 adet butonum var,butonlardan ilki a1 sütunundaki ilk boş hücreye git isimli bir makro çalıştırıyor ve aktif hücre nerede ise oraya kayıyor,ikinci buton ise a1 sütunundaki son dolu hücreyi sil isimli bir makro çalıştırıyor fakat ilk butondaki gibi aktif hücrenin olduğu yere gitmiyor bunu nasıl sağlayabilirim.Buton kodları aşağıdaki gibidir.

Buton 1 modül(makro) kodu
Sub ActivateNextBlankDown()
Range("A1").Select
ActiveCell.Offset(1, 0).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
End Sub

Buton 1 sayfa(butonu kaydırma) kodu
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Shapes("düğme 2").Top = ActiveCell.Offset(0, 2).Rows.Top
End Sub
Not:Worksheet selection change olayında çalışmaktadır.

Buton 2 modül (makro) kodu
Sub sil()
Sayfa1.Range("a65536").End(3).ClearContents
End Sub

Buton 2 sayfa (butonu kaydırma) kodu
Ne olmalıdır?