Форма поиска и фильтр

[Legachoff]

Есть база даных в Еxcel, не получаеться сделать форму поиска.
Например ввести номер договора, тогда чтобы другие строки не касающиеся даного договора удалялись. Вот что пока сам сделал:

Sub GetInfo()
Dim Info As Variant
Dim LastRow As Long, r As Long
Info = InputBox("Введите инфо")
LastRow = ActiveSheet.UsedRange.Rows.Count
LastRow = LastRow + ActiveSheet.UsedRange.Row - 1
Application.ScreenUpdating = False
If Info = ActiveSheet.Value Then
For r = LastRow To 1 Step -1
If Application.CountA(Rows(r)) = Info Or 0 Then Rows(r).Delete
Next r
End If
End Sub
[/syntax]

[uhm]

Автофильтр поюзать не судьба?