Программиты!!! HELP!!!!!

[Lena_Fokina]

Исходный файл:
Есть некий файл с огромным количеством данных.
Первый столбец данных это нумерация.
Второй – меняется от 1501 до 1520 в возрастающем порядке (например 13шт. -1501, 34шт.- 1502, 100шт. – 1503…………..76шт. - 1520). Следующие столбцы местят некую информацию. Верхняя левая точка таблицы «А2»

Задача такая:
Нужно массив информации, который вмещает, например 1501, скопировать в другой файл на лист под названием 1501 в ячейку «В2» и пронумеровать. И так со всеми массивами которые вмещают данные от 1501 до 1520.
Другой файл с листами под конкретными названиями (1501…..1520) имеется.

Пробовала переделать найденные примеры:

Sub search()
Worksheets("лист2").Activate
For Each cell In Range("b1:b200")
If cell = "отдел" Then 'если значение в ячейке = "отдел"
cell.Select
ActiveCell.Offset(0, -1).Select 'сдвигаемся на одну ячейку влево
Selection.Copy 'копируем данные в этой ячейке (текст)
Workbooks("Фонды.xls").Worksheets("Sheet1").Activate 'открываем книгу-получатель
Range("b6").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.Offset(1, 0).Select
Workbooks("макрос.xls").Worksheets("лист2").Activate
End If
Next cell
End Sub

И

Sub search()
Dim i As Long, rg As Range
i = Workbooks("Фонды.xls").Worksheets(1).Cells(Rows.Count, 2).End(xlUp).Row + 1
Worksheets("лист1").Activate
For Each rg In Range("b1:b200")
If rg = "отдел" Then 'если значение в ячейке = "отдел"
rg.Offset(0, -1).Copy Workbooks("Фонды.xls").Worksheets(1).Cells(i, 2)
i = i + 1
End If
Next
End Sub


Не получилось!!!!!
Если кто может ПОМОГИТЕ!!!!!

Если можно с объяснениями!!!!

[Viper]

Хммм....

Ну во-первых, стоило топик назвать как-то более осмысленно. Во-вторых, код стоило заключить в теги, а то его весьма сложно понимать, ну и в третьих, стоит пожалуй как-то более четко сформулировать вопрос, а то непонятно сколько и чего надо скопировать