Filtern von Zahlen

mit nachfolgendem Makro sollen durch Eingabe von Zahlen über eine InputBox alle in der Spalte B enthaltenen Werte gefiltert werden, auch Teile von Zahlenfolgen. Ich habe aber das Gefühl, das hierbei über alle Spalten gesucht wird. Wie muß ich das Makro abändern.

Vielen Dank im voraus

Sub Konto_suchen()
Dim lR%, i%, VNr
Cells.Select
Selection.EntireRow.Hidden = False
Range("A1").Select
VNr = InputBox("Bitte Nummer eingeben:")
If VNr = "" Then Exit Sub
lR = Cells(Rows.Count, 2).End(xlUp).Row
For i = lR To 2 Step -1
If InStr(Cells(i, 1), VNr) = 0 Then
Rows(i).Hidden = True
End If
Next i
End Sub