Проблема с выделением диапозонов в Excel - VB

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

Друзья мои, очень прошу помочь с решением такой проблемы, с котрой мне посчастливилось столкнуться. Описанная проблема - один из необходимых шагов макроса, который автоматизирует процесс обработки данных. Итак:
У меня есть набор данных в Excel. В одном из столбцов я нахожу нужную мне ячейку(по значению), после чего мне необходимо скопировать диапозон данных от этой ячейки до ячейки B2.
У этой ячейки положение меняется в каждом цикле, поэтому ее нельзя задать, как, например, J123, а только как ActiveCell.
Заранее большое спасибо!

Решение задачи: «Проблема с выделением диапозонов в Excel»

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

                            <font color="blue">Sub</font> kn()
<font color="blue">Dim</font> r <font color="blue">As</font> Range
<font color="blue">Set</font> r = ActiveCell
Range(Range(<font color="teal">"B2"</font>), r).<font color="blue">Select</font>
<font color="blue">End</font> <font color="blue">Sub</font>
                        