fejl i makro

Hej er der en der kan gennemskue fejlen i denne makro

Jeg har et ark med en masse data. Første kolonne er varenummer

Det skal så være muligt via en kanp at få et søgefelt hvor man kan søge på varenumre og så kun se disse linier.

Når jeg indtaster et varenummer i søgefeltet viser den desværre ikke dette varenummer men varenummeret oven over. Varenumrene starter i række 5 i arket.

Har et andet hvor det fungerer upåklageligt.

Sub sorter()
Dim RW(), I, J

ActiveSheet.Unprotect
Rows.Hidden = False
K = Range("A65536").End(xlUp).Row
MyArr = Range("A5:A" & K)
Range("BE5:BE" & K) = MyArr
søgenr = Split(InputBox("Indtast Varenumre adskilt af komma, eller feks 2010* hvis du vil finde alle varer der starter med 2010"), ",")

For nr = 0 To UBound(søgenr)
For I = 1 To UBound(MyArr)
    If MyArr(I, 1) Like "*" & søgenr(nr) & "*" Then
        ReDim Preserve RW(J)
        RW(J) = I + 3
        J = J + 1
    End If
Next I
Next nr

If J = 0 Then
    MsgBox "Søgning gav intet resultat"
    Exit Sub
End If

For I = 0 To UBound(RW)
    Range("BE" & RW(I)).Value = ""
Next I

Rows("5:" & K).Hidden = True
Range("BE5:BE" & K).SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = False
ActiveSheet.Protect

End Sub


LN