Satır Silme Düzeltme

[kiziloguz]

Arkadaşlar Merhabalar,

Yeni çalışma planı üzerinde çalışıyorum ancak sorun şu ki user form üzerinde kişinin ismini tıklayıp sil dediğimde aşağıdaki komut aktif hale gelip tüm satırı siliyor.
Ancak ben tüm satırı değil ilgili kişinin olduğu satırın "A" Sütunundan P sütununa kadar silmesini istiyorum.

Aşağıdaki kodda nasıl bir düzenleme yapabilirim.?

İyi Akşamlar,

Private Sub CommandButton3_Click() 'KİŞİ SİLME BUTONU

Dim x As Integer

son_dolu_satir = ActiveSheet.Range("A65536").End(xlUp).Row

    If ListBox1.ListIndex >= 0 Then
    
        cevap = MsgBox("Seçili Kişiyi Silmek İstediğinizden Emin misiniz ?", vbYesNo, "SİLME ONAYI")
    
        If cevap = vbYes Then
        
                        
            Silinecek_Satir = ListBox1.ListIndex + 4
            
            [COLOR="Red"]ActiveSheet.Rows(Silinecek_Satir).Delete[/COLOR]
                                         
        End If
        ActiveSheet.Range("A" & son_dolu_satir).Value = i
        
   
    
    End If

End Sub

 

[Korhan Ayhan]

Aşağıdaki gibi deneyiniz.

ActiveSheet.Range("A" & Silinecek_Satir & ":P" & Silinecek_Satir).Delete

 

[kiziloguz]

Teşekkürler Üstad,

Ziyadesiyle düzeldi.