Сделала:

Sub Кнопка13_Щелкнуть()

x = 5 'начальная точка
y = 600 'конечная точка
q = 32

st1 = "a" ' Столбец сравнения
st2 = "j"
st3 = "d" 'Столбец с уч.3
st4 = "m" 'Столбец с ФИО
st5 = "g" 'Столбец с уч.2
st6 = ""

For i = x To (y)
Sheets("Рабочие").Activate

If Range(st1 & i).Value = 2 And Range(st2 & i) = 2 Then - участок 2
Sheets("Рабочие").Activate
Range(st4 & i).Select
Selection.Copy
Sheets("Структура РЭС").Select
Range(st5 & q).Select
ActiveSheet.Paste

End If
Next

For i = x To (y)
If Range(st1 & i).Value = 2 And Range(st2 & i) = 1 Then - участок 1
Sheets("Рабочие").Activate
Range(st4 & i).Select
Selection.Copy
Sheets("Структура РЭС").Select
Range(st3 & q).Select
ActiveSheet.Paste


End If

Next


Sheets("Структура РЭС").Activate

End SubНо в итоге оно находит лишь последнее значение, которое соответствует условиям???
И вставляет в ячейку.
Явно что-то не так, но я экономист и с этим у меня туго ….. 

В идеале на листе структура поле со списком, выбираю отдел, нажимаю на кнопку все вставляет. ….

Вопросы:
1. Как указать, чтобы оно проверив первое значение если оно соответствует выделяло, затем второе , третье …, затем все выделенное вставляло массивом в Начальную ячейку Range(st5 & q).Select и вниз.
Либо что-то типа того в следующее поле если оно пустое….

2. Условия:

If Range(st1 & i).Value = 2 And Range(st2 & i) = 2 Then

Здесь я сама указываю что код отдела 2 и код участка 2, можно ли как-то сослать на ячейку связанную с полем со списком на листе структура???
Т.Е. условие будет ячейка В5 на листе Структура РЭС.
Но как написать???

Участок 1 Участок 2 Участок 3
ФИО ФИО ФИО

3. Как прописать более рационально???

Спасибо за внимание. Очень надеюсь на помощь и подсказки. Знаний не хватает !!!!
SOS