Soru buton ile satır temizle

[sirkülasyon]

çalışanlar sayfası 10. saturdan itibaren A sütununda commanbutton ekleyip
imleç hangi sütunda ise buton o sütuna gelecek buton click olayında imlecin olduğu satırı B:AK aralığını temizleyecek

böyle bir şey için yardımcı olabilir misiniz?

 

[sirkülasyon]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Dim selectedRow As Integer
    Dim buttonTop As Integer
    selectedRow = Target.row
    If selectedRow >= 10 And selectedRow <= 60 Then
        With Me.Shapes("CommandButton1")
            buttonTop = Me.Cells(selectedRow, 1).Top
            .Top = buttonTop
        End With
    End If
End Sub

butonun hareketini sağladım.
İmlecin olduğu satırı temizlemesi için yardımcı olabilir misniz

 

[sirkülasyon]

Dim aktifSatir As Integer
    aktifSatir = ActiveCell.row
    Range("B" & aktifSatir & ":AK" & aktifSatir).ClearContents

Konuyu çözdüm gibi. Teşekkür ederim