Выгрузка данных по моделям

[КВС-40]

Здравствуйте!
В связи с тем что стало неистово припекать солнышко, что в последствии отразилось в качестве перегрева у выше стоящего руководства, мне, как человеку не совсем близкому к Excel, решили поставить задачу написать макрос на выгрузку данных, после 10-12 возражений по поводу не возможности данного действия я был послан выполнить обрушившуюся на меня миссию. С горем пополам я сделал данную задачу спустя 3 суток (лист "Сводка"). И в момент демонстрации я полноценно с глубоким проникновением ощутил невыносимое "А как бы нам сделать ......"
Пожалуйста помогите решить эту задачу на это у меня точно не хватит знаний и терпения.
Собственно проблема в том что бы при помощи кнопки переместить данные вбитые списком на листе "выгрузка" на лист "мастера" в порядке списка соответственно моделям, т.е. на листе "выгрузка" модель: AN 586 1/2 ищем совпадение на листе "мастера" и при нахождении добавляем: 6697 в столбец "кол-во" на листе "Мастера". и так со всеми моделями.

[Hugo121]

Да просто ВПР() туда забейте и все дела. Можно вручную, можно кодом.

[КВС-40]

Но ВПР не оставляет значение, а если список на листе Выгрузка меняется? нужно как раз чтобы записи добавлялись и оставались.

[Hugo121]

Ну значит забиваете ВПР() кодом и сразу заменяете на результат.
Но я не нашёл куда бы можно было забить это 6697, а Вы не рассказали. Ну есть там такой столбец, уже с данными - что, их все нужно заменить на это число?

[КВС-40]

нет нужно добавить число 6697 в этот столбец в порядке списка, и так при каждой выгрузке причем список выгрузки может меняться

[Hugo121]

Вы напишите конкретно по приложенному файлу - куда конкретно нужно записать это 6697, в какую или какие ячейки. Что за "в порядке списка" я не понимаю.

[КВС-40]

1. лист "Выгрузка" имеем список оснастки с кол-вом штампоударов
2. нужно перенести данные на лист "мастера " с помощью кнопки
3. при нажатии на кнопку макрос ищет (А3) AN 586 1/2 на листе "мастера", если нашел (D2) добавляет значение (Выгрузка!B3) 10000 в лист Мастера!E10 (приследующей выгрузке E11 и т.д.). И так с каждой оснасткой из списка на листе "Выгрузка".
4. Состав списка на листе "Выгрузка" может изменяться.

[RAN.]

Ой знакомый файлик.

[КВС-40]

Здравствуй Андрей!
Как сам?

[RAN.]

Sub мяв()
    With shMasters
        For i = 3 To Cells(Rows.Count, 1).End(xlUp).Row
            findCol = .Rows(2).Find(What:=Cells(i, 1), LookAt:=xlWhole).Column
            .Cells(Rows.Count, findCol + 1).End(xlUp).Offset(1) = Cells(i, 2)
        Next
    End With
End Sub

запускать с листа выгрузка