Копирование строк с заданым значением

[Cone]

День добрый, прошу помочь с макросом. Макрос должен выполнять следующие действия.
После внесения в ячейку (к примеру B2 лист1) значения ,скажем, 11BN005, по щелчку макрос должен копировать все строки содержащие это значение в диапазоне (A4:A200) с листа 1, в лист 2.

[Cone]

ЧТо, ни у кого нет никаких идей?!

[Cone]

Называется, "Клали все большой и толстый"

[kuklp]

В модуль листа 1:

Sub www()
    Dim sh As Worksheet
    Me.AutoFilterMode = 0
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
        Set sh = Worksheets(2)
        sh.UsedRange.Clear
        With Me.Range(Me.[a3], Me.Cells(Me.[a65536].End(xlUp).Row, Me.[a3].End(xlToRight).Column))
            .AutoFilter 1, "=" & [b2].Value
            .SpecialCells(12).Copy sh.[a1]
        End With
    Me.AutoFilterMode = 0
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
End Sub