поиск данных в листах и копирование их в отдельные листы

[mike]

Есть файл который обновляется каждый день. В нём есть колонка U.
Нужен макрос, который бы искал по данной колонке определённые слова из листа 0, и вытаскивал из всех листов все строки которые содержат данное слово и создавал новые листы с уже скопированными данными. Т.е. отдельный лист со словом морков, перец, груш, яблок и т.д. В колонке U может быть как яблоки так и яблоко, груши, груша, поэтому копировать те строки в которых есть сочетание яблок, груш...

[mike]

На форуме нашёл такой код, он частично делает то что нужно, т.е. ищет в определённом столбце нужное слово, и копирует на новый лист.

Код Выделить Развернуть

Option Explicit
Sub bb()
Dim i&, j&, c As Range
Worksheets.Add before:=Sheets(1)
For i = 2 To Worksheets.Count
    For Each c In Worksheets(i).UsedRange.Columns(22).Cells
'1 - "определённый столбец"
        If c = "перец" Then
            j = j + 1
            c.EntireRow.Copy Cells(j, 1)
        End If
    Next
Next
Что нужно в нём изменить чтобы он брал данные с определённого листа (Лист0) и определённого массива $A$1:$A$100 и для каждой ячейки создавал новый файл?