Girilecek Koşula Göre Tüm Satırı Silme

öncelikle daha öncede  buna benzer işlemlerde yardımcı  oldunuz teşekkür ederim. bu  kez tablomda değişiklik oldu alt taloya verileri üst kısımdan girerek yapmaya  çalıştım.
Koşul olarak gireceğim "HESAP NUMARASI" na göre hesabın  bulunduğu tüm  satırları sildirmek istiyorum.

HESAP NO koşulunu girdiğimde sorun çıkarmıyor seçilen hesaba ait satırları siliyor, ancak hesap numarası girilmeden herhangi bir şekilde (ESC-CANCEL-X) ile makrodan çıkıldığında tablo üst düzenini bozuyor ve üst kısmındaki birkaç satırı ve verileri siliyor ve bozuyor, bununla ilgili çalışmayı ekte gönderdim, yardımlarınız için şimdiden teşekkür ediyorum.

Dener misiniz...

Sub Hesapnoilevadtelihesapsil()

Dim lr As Integer
Dim Message, Title, Default, MyValue
Dim blnExt As Boolean

blnExt = False
Message = "SİLİNMESİNİ İSTEDİĞİNİZ HESAP NO GİRİNİZ :"
Title = "HESAP NO SİLME" ' Set title.
Default = "xxx" ' Set default.
MyValue = InputBox(Message, Title, Default)

If StrPtr(MyValue) = 0 Then
blnExt = True
ElseIf (MyValue = Default) Then
blnExt = True
End If

If blnExt = True Then Exit Sub

lr = Cells(Rows.Count, 3).End(xlUp).Row
For i = lr To 10 Step -1
If Cells(i, 3) = MyValue Then Rows(i & ":" & i).EntireRow.Delete
Next i
Range("B2").Select
End Sub