kodda düzeltme

[Fuat Şirin]

If ListBox1.ListCount > 0 Then
    For X = ListBox1.ListCount - 1 To 0 Step -1
    If Not IsEmpty(ListBox1.List(X, 0)) Then
    ListBox1.ListIndex = X
    Exit For
    End If
    Next
    End If

bu kodları sayfa 2 ye 3 e nasıl ayarlarım

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
cevap = MsgBox("Bu Satış Silinecek Onaylıyor musunuz?", vbYesNo) 'YAPILAN ÜRÜN GİRİŞİNİ SİLEN KODLAR
If cevap = vbNo Then Exit Sub
ListBox1.RemoveItem ListBox1.ListIndex
Rows(ListBox1.ListIndex + 8).Delete
MsgBox ("Yapılan Bu Satış Girişi Tarafınızdan Silindi")
End Sub

üstteki kodlarla çift tıklayıp sildiğimde sayfa1deki kayıtları siliyor

istediğim listbox2 yada 3 te
sayfa 2 yada 3 silmesi

nereleri değiştireceğimi sölerseniz
işimi görür
saygılarımla