Önceki koddaki kısımları alttaki gibi değiştirirsenizde olur.Yani find komutsu yapıldı.
Listbox ve sayfadaki satır numaraları karşılaştırıldı.

If .ListCount = 0 Then Exit Sub

        ReDim Arr(1 To .ListCount, 1 To 1)

        For i = 0 To .ListCount - 1

            If .Selected(i) = True Then

                say = say + 1

                Arr(say, 1) = i + 7 ' sifirdan baslandigi icin 7 yazildi 6 yerine

            End If

        Next

        

        If say > 0 Then

            For i = UBound(Arr) To LBound(Arr) Step -1

              If Arr(i, 1) <> "" Then

              If CLng(Arr(i, 1)) > 6 Then Rows(CLng(Arr(i, 1))).EntireRow.Delete

              End If

            Next

        End If