Объединить макросы

[Romuald]

Добрый день!
Пользуюсь двумя макросами для нахождения соответственных данных
Лист 1- в колонку А пишем коды
Лист UPDATE- лист где коду (колонка А) - соответствует название или количество(колонка В)
Макрос из листа UPDATE из колонки В переносит данные в лист 1 соответственно кодам
У меня два макроса - первый обновляет данные в листе1 в колонкеВ,
другой дописывает данные,ели их нет,не стирая старых данных
Подскажите, пожалуйста, можно ли макросы объединить или отредактировать: запускаешь макрос, появляется форма с вопросом-- обновить данные? или добавить данные? , выбираешь -и макрос выполняет работает по выбранному
Заранее благодарю

[EducatedFool]

Создайте кнопку, и назначьте ей этот макрос:

Sub Start()
    Select Case MsgBox("Нажмите ДА для обновления данных" & vbCrLf & _
                       vbCrLf & "Нажмите НЕТ для добавления данных" & vbCrLf & _
                       vbCrLf & "Нажмите ОТМЕНА, если обработка не требуется", 35, _
                       "Выберите действие")
        Case 6    ' ДА для обновления данных
            PerenosDannih_Dannie_v_A_B_Obnovlenie
        Case 7    ' НЕТ для добавления данных
            PerenosDannih_Dannie_v_A_B_Dobavlenie
        Case 2    ' Отмена
            ' ничего не запускаем
    End Select
End Sub

[Romuald]

Спасибо большое!!