Автоматическое проставление данных при выборе значений

[Сергей Ш.]

Ребята, извините за беспокойство. Я уже обращался к вам с подобным вопросом и вы мне очень помогли.
"Мне необходимо было при выборе значения из выпадающего списка автоматически проставлять данные в строку"
На сей раз все усложнилось, значений стало больше. Теперь при выборе значения на Листе2 в колонке G, еще должен учитываться возраст (колонка E) и пол (колонка F), и в зависимости от этого будут проставляться данные. (К примеру, если женщине по возрасту больше сорока лет, то проставляются одни данные, а если меньше то другие). Пример на Листе3

[Сергей Ш.]

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

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("G2:G100")) Is Nothing Then
a = Sheets("Лист3").Range("D11:AE13").V alue
For i = 1 To UBound(a)
If a(i, 1) = Target.Value Then
cl = 9
For j = 2 To 28
Cells(Target.Row, cl) = a(i, j)
cl = cl + 1
Next
End If
Next
End If
End Sub

[IgorGO]

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Cells.Count > 1 Or Target = "" Then Exit Sub
  If Intersect(Target, Range("G:G")) Is Nothing Then Exit Sub
  If WorksheetFunction.CountIf(DB.[d:d], Target) = 0 Then Exit Sub
  DB.Cells(WorksheetFunction.Match(Target, DB.[d:d], 0) + IIf(Target.Offset(0, -1) = "Муж.", 1, IIf(Target.Offset(0, -2) < 40, 0, 2)), 7).Resize(1, 27).Copy
  Application.EnableEvents = False: Target.Offset(0, 3).PasteSpecial xlPasteValues: Application.EnableEvents = True
End Sub

[Сергей Ш.]

А как быть если выходит ошибка Run-time error 424.

[IgorGO]

извините, я лист переименовал (у себя, а у Вас-то остался как был...)

[Сергей Ш.]

Файл во вложении, посмотрите пожалуйста
Я ввожу дату, допустим в строке 6 в колонку D, автоматически через формулу в этой же строке проставляется возраст в колонке E, потом указываю пол в колонке F и далее выбираю одно из значений в колонке G: это может быть значение1, значение2, значение3, значение4 и т.д. и у меня выходит ошибка.

[Сергей Ш.]

Да, здорово! Спасибо!
А как быть с формулами? Я так понимаю они работать в данном случае не будут

[Сергей Ш.]

А нет, все работает. Спасибо IgorGO. Как всегда выручили

[IgorGO]

я удивлен не меньше Вас)))

[Сергей Ш.]

Добрый день.
Ребята, вся надежда на вас. Всё та же ситуация по той же теме, только теперь данные должны проставляться не в строку а в столбик, причем в разные.
Объяснить очень трудно, по крайней мере для меня, но смысл такой: На Листе1 по заданным значениям (ячейки выделены красным цв.) автоматически проставляются данные, находящиеся на другом листе (Лист2), который в свою очередь будет скрытым. Я примерно сделал таблицу "Тест1" как это должно выглядеть, а вот воплотить не получается, не понимаю что необходимо поменять в коде макроса. В прошлый раз мне очень помог Игор, огромное ему спасибо, в долгу не останусь.
(Для примера, во вложении есть таблица, в котором данные проставлялись в строку, код прекрасно работает, спасибо Игорю)