В чем ошибка?

[Dima36668]

Требуется написать макрос, который в зависимости от значений по двум ячейкам (в примере Р2 и Р3) будет копировать и вставлять данные с разных листов и диапазонов в подготовленную таблицу.
Как вариант реализации такой задачи написал следующее:

Sheets("Лист1").Select
If Range("P2") = 1 Then Range("P3").Select
If Range("P3") = 1 Then
Sheets("Вова").Select
Range("B3:F6").Select
Selection.Copy
Sheets("Лист1").Select
Range("G9").Select
ActiveSheet.Paste
End If


Sheets("Лист1").Select
If Range("P2") = 1 Then Range("P3").Select
If Range("P3") = 2 Then
Sheets("Вова").Select
Range("G3:K6").Select
Selection.Copy
Sheets("Лист1").Select
Range("G9").Select
ActiveSheet.Paste
End If

Sheets("Лист1").Select
If Range("P2") = 2 Then Range("P3").Select
If Range("P3") = 1 Then
Sheets("Петя").Select
Range("B3:F6").Select
Selection.Copy
Sheets("Лист1").Select
Range("G9").Select
ActiveSheet.Paste
End If

Sheets("Лист1").Select
If Range("P2") = 2 Then Range("P3").Select
If Range("P3") = 2 Then
Sheets("Петя").Select
Range("G3:K6").Select
Selection.Copy
Sheets("Лист1").Select
Range("G9").Select
ActiveSheet.Paste
End If


End Sub

При выполнении макроса почему-то происходит копирование и вставка данных исключительно с листа "Петя" даже когда по условию должно копироваться с "Вова". При разделении на два макроса все работает ок.
Для решения задачи необходим именно один макрос, в котором будет много листов источников данных и диапазонов (значения Р2 и Р3 будут меняться в диапазоне от 1 до 400).

Пожалуйста помогите понять, что необходимо исправить для исправления ошибки и реализации задачи!!!

[kalbasiatka]

Файлик приложи пожалуйста.

[DiemonStar]

Select Case [P2]
Case 1 
  S = "Вова"
Case 2 
  S = "Петя"
Case Else
  S = ""
End Select

Select Case [P3]
Case 1 
  S1 = "B3:F6"
Case 2 
  S1 = "G3:K6"
Case Else
  S1 = ""
End Select

If S <> "" and S1 <> "" then
  Sheets(S).Range(S1).Copy [G9]
End If

Попробуйте так.

значения Р2 и Р3 будут меняться в диапазоне от 1 до 400

з.ы. Вы планируете использовать 400 листов?

[Dima36668]

Сообщение от DiemonStar

Попробуйте так.

з.ы. Вы планируете использовать 400 листов?

Большое спасибо, с небольшим количеством данных пока все ок, дальше буду пробовать.

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

Возможно задача имеет другое более простое решение, но я пока его не вижу((