Filter mit VBA

Sub suche()
Dim such As String
Dim n As Long
such = InputBox("Artikelnummer eingeben!")
n = 0
Do
n = n + 1
Loop Until IsEmpty(Cells(n, 1))
n = n - 1
For i = 1 To n
If Cells(i, 1) = such Then
Rows("1:" & i - 1).Select
Selection.EntireRow.Hidden = True
Rows(i + 1 & ":65536").Select
Selection.EntireRow.Hidden = True
Rows(i).Select
Selection.EntireRow.Hidden = False
Cells(i, 1).Select
End If
Next i
End Sub