Поиск по слову

[Tytyti]

Помогите, что я делаю не так!?
В ячейке А1 лист(поиск)- будет вводиться фамилия и нужно найти в листе (сбор данных), данного менеджера и копировать все строку в лист(поиск)...

Option Explicit
Sub Кнопка1_Щелчок()
a = ThisWorkbook.Worksheets("сбор данных").Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To a
If Worksheets("сбор данных").Cells(i, 3) = Worksheets("поиск")("A1") Then
Worksheets("сбор данных").Rows(i).Copy
Worksheets("поиск").Activate
b = Worksheets("поиск").Cells(Rows.Coun t, 1).End(xlUp).Row
Worksheets("поиск").Cells(b + 1, 1).Select
ActiveSheet.Paste
Worksheets("сбор данных").Activate
End If
Next
Application.CutCopyMode = False
ThisWorkbook.Worksheets("поиск").Ce lls(1, 1).Select
End Sub