Option Explicit

Sub zanesti()
'объявление переменных
       Dim a, i As Long, x As Long, temp

       'по первому листу (т.е. по листу с кодовым именем Лист1)
       With Лист1
           'считаем заполненные ячейки, если мало - то сообщение и выход
           If Application.CountA(.Range("b1:b6")) <> 6 Then MsgBox "Не всё заполнено!", vbCritical: End
           'заносим в временную переменную значения ячеек - формируем слитную  строку
           temp = .[b1] & .[b2] & .[b3] & .[b4] & .[b5] & .[b6]
       End With

       'по второму листу (т.е. по листу с кодовым именем Лист2)
       With Лист2
           'берём в массив значения с A2 по Gпоследняя_заполненная_ячейка_в_первой_колонке+1
           a = .Range(.Cells(2, 1), .Cells(.Cells(Rows.Count, 1).End(xlUp).Row + 1, 7)).Value
       End With

       'работаем с словарём
       With CreateObject("Scripting.Dictionary")
           'заносим в словарь уже занесённые в список данные из массива
           For i = 1 To UBound(a)
               .Item(a(i, 2) & a(i, 3) & a(i, 4) & a(i, 5) & a(i, 6) & a(i, 7)) = CStr(1)
           Next
           'проверяем по словарю нового клиента (из переменной temp)
           'если такой уже есть (не только ФИО, но и должность и даты), то сообщение и выход
           If .exists(temp) Then MsgBox "Такой клиент уже есть!", vbCritical: End
       End With

       'в переменную берём верхний индекс массива (где пустые значения)
       x = UBound(a)

       'по первому листу (т.е. по листу с кодовым именем Лист1)
       'увеличиваем счётчик и дополняем массив данными с листа
       With Лист1
           If x = 1 Then a(x, 1) = 1 Else a(x, 1) = a(x - 1, 1) + 1
           a(x, 2) = .[b1]
           a(x, 3) = .[b2]
           a(x, 4) = .[b3]
           a(x, 5) = .[b4]
           a(x, 6) = .[b5]
           a(x, 7) = .[b6]
       End With

       'по второму листу (т.е. по листу с кодовым именем Лист2)
       'выгружаем назад дополненный массив (в то же место, откуда его брали)
       With Лист2
           .Range(.Cells(2, 1), .Cells(.Cells(Rows.Count, 1).End(xlUp).Row + 1, 7)).Value = a
       End With
       'это просто биип <img src="http://s5.ucoz.net/sm/1/smile.gif" border="0" align="absmiddle" alt="smile" />
       Beep
End Sub