Доброго времени суток, уважаемые форумчане.

Прошу помощи в прописании дополнительных условий при запуске макросов.

Есть 2 кнопки - Записать и Создать заказ

Кнопка Записать добавляет новые расчеты по клиентах - нужно добавить условие - проверять есть ли копируемое значение (название клиента)  в диапазоне А7 : А20 , если есть - работает по стандарту, если нет : 1) выдает сообщение - Создайте заказ и больше ничего не добавляет. Например, если добавить еще один расчет по клиенту Сергей - тогда должно выдать сообщение - Создайте заказ, а если снова Андрей - тогда добавлять.

Кнопка Создать заказ - копирует все расчеты по клиенту в лист Заказ. Нужно добавить условие - если заказ уже создан - выдавать сообщение - Заказ уже создан, создать новый - Да - Нет, если да-"затирает" уже созданный заказ, если нет - ничего не делает

Коды кнопок и примеры добавляю.

Кнопка Записать:

Sub Кнопка1_Щелчок()
'
' Кнопка1_Щелчок Макрос
'

'
   Range("B2:B6").Select
   Selection.Copy
   Sheets("форма").Select
   NextRow = Range("A65536").End(xlUp).Row + 1
   Cells(NextRow, 1).Select
   Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
       False, Transpose:=True
   Range("B2:B6").Select
   Application.CutCopyMode = False
   Selection.ClearContents
   Range("B1").Select
End Sub

Кнопка Создать заказ:

Sub Кнопка2_Щелчок()
'
' Кнопка2_Щелчок Макрос
'

'
   Range("A8").Select
   Selection.Copy
   Sheets("заказ").Select
   Range("C3").Select
   ActiveSheet.Paste
   Sheets("форма").Select
   Range("B8:E19").Select
   Application.CutCopyMode = False
   Selection.Copy
   Sheets("заказ").Select
   Range("C5").Select
   ActiveSheet.Paste
   Range("C5").Select
   Sheets("форма").Select
   Range("A8:E9").Select
   Application.CutCopyMode = False
   Selection.ClearContents
   Range("B1").Select
End Sub