Поиск известного текста и его копирование - VB

Формулировка задачи:

Подскажите пожалуйста! В Excel файле нужно найти и скопировать инф-ю (числа в текстовом виде), начинающуюся с известного текста ("(92)")(без него самого) до последней заполненной ячейки далее.
1). найденные значения нужно скопировать в другую книгу Excel
2). взаимное расположение заполненных ячеек: несколько столбцов и строк
3). пустые ячейки между заполненными есть
4). Известный текст содержится только в одной ячейке
5). Все обрабатываемые данные расположены на одном листе книги
Спасибо!

Решение задачи: «Поиск известного текста и его копирование»

textual
                            Листинг программы 
                        

                            <font color="blue">Private</font> <font color="blue">Sub</font> CommandButton1_Click()
    <font color="blue">Dim</font> rng <font color="blue">As</font> Range
    <font color="blue">Set</font> rng = Cells.Find(What:=<font color="teal">"(92)"</font>, After:=ActiveCell, LookIn:=xlValues, LookAt _
        :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        True)
    rng.CurrentRegion.Copy
    Workbooks.Add
    ActiveSheet.Paste
<font color="blue">End</font> <font color="blue">Sub</font>
                        