Копировать нескольку строку в другой лист с условиями

[Aqil_f]

Надо копировать с лист3 активную строку в лист4. Это я могу делать.
Но, еще надо с лист1 и с лист2 тоже копировать соответствующие данные на лист4.
Т.е, если в лист3 активная строка 3-я (TNR=101), тогда с лист1 4 строка (где TNR=101), а с лист2 1 строка (где TNR=101) тоже должен копироватся на лист4. Помогите пожалуйста, как можно это делать?

[Aqil_f]

Вопрос решен

Private Sub CommandButton1_Click()
Dim TNR$, i%, ii%
TNR = ActiveCell
Application.ScreenUpdating = False
For i = 1 To Sheets.Count
If Sheets(i).Name <> "List4" Then
    With Sheets(i)
       For ii = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
         If .Cells(ii, 1) = TNR Then
         .Rows(ii).Copy
         Sheets("List4").Cells(Sheets("List4").Cells(Rows.Count, 1).End(xlUp).Row + 1, 1).PasteSpecial
         End If
       Next ii
    End With
End If
Next i
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

[Aqil_f]

Все нормально. Но, как можно делать так что для каждого листа копировка начался с конкретного ячейка, допустим для Лист1 с 5-го, для Лист2 15-го и т,д,?
И еще, не все листы копировался, допустим, копирование была для 1-го, 2-го, 3-го и 9-го листа?