Szia! Az volt a baja, hogy megtalálta a 3.sorban lévő "Gyümölcs"-öt (ez nem nulla), de utána volt egy üres sor, ami azonnal kilépett ez miatt: "While Len(Range("A" & CStr(LSearchRow)).Value) > 0".