ListBox da seçili veriyi silme hatası

[sonxsonx]

Arkadaşlar merhaba program yapmaya çalışıyorum fakat bir konuda takıldım yardımcı olursanız sevinirim yazmış olduğum kodlarda sil butonuna bastığımda önce silmek istediğinizden eminmisiniz ? diye soru soruyor fakat hemen peşinden komple satırı silmek istiyormusunuz diye excel uyarısı çıkıyor iptal yaptığımda silmese bile kodlardaki silme işlemi başarılı uyarısı çıkıyor tamam dersemde komple satırı silip yeniden sıra numarası vermiyor sorun şu olsa gerek Sheets("ANASAYFA").Select kodunu kullanıyorum kullanmadığım zaman herşey normal ama kullanmak zorundayım bu sefer başka sayfaya gidip o sayfada silinmemesi gereken verileri siliyor.Sil kodlarına aktif sayfayı tanıtmanın başka yolu varmı? yardımcı olursanız sevinirim Teşekkür ederim.

Private Sub CommandButton3_Click()
Sheets("ANASAYFA").Select
sor = MsgBox("Silmek istediğinizden eminmisiniz?", vbYesNo)
If sor = vbNo Then Exit Sub
sat = ListBox1.ListIndex + 2
Range("B" & sat & ":J" & sat).Delete
UserForm_Initialize
MsgBox "SEÇİLEN VERİ SİLİNMİŞTİR"
ComboBox1 = Empty: ComboBox2 = Empty: ComboBox3 = Empty: ComboBox4 = Empty: ComboBox5 = Empty: ComboBox6 = Empty: TextBox1 = Empty: TextBox2 = Empty: TextBox4 = Empty:
End Sub