Строка для макроса

[Sharrik]

Здравствуйте! Не смог найти поиском, поэтому буду клянчить!
Нужна строчка для макроса:
если в столбце А есть значение (в примере "12"), то удалить всю строку, которая это содержит.

[doober]

  Sub Killer()
Dim n As Long, m As Long
With Sheets("Sheet1")
m = .Range(("A1:A" & .Range("A" & Rows.Count).End(xlUp).Row)).Rows.Count
For n = m To 1 Step -1
If .Cells(n, 1) = 12 Then .Rows(n).Delete
Next
End With
End Sub

или

 Sub Killer2()
Dim  n As Long, m As Long, t
With Sheets("Sheet1")
t = .Range(("A1:A" & .Range("A" & Rows.Count).End(xlUp).Row))
For n = UBound(t) To 1 Step -1
If t(n, 1) = 12 Then .Rows(n).Delete
Next
End With
End Sub

[Sharrik]

Благодарю! =)

[SAS888]

Предложу еще вариант. Можно обойтись без всяких циклов:

Sub Killer3()
    Dim x As Range: Application.ScreenUpdating = False
    Set x = [A:A].Find(12, , , xlWhole)
    If Not x Is Nothing Then
        [A:A].ColumnDifferences(x).EntireRow.Hidden = True
        [A:A].SpecialCells(xlCellTypeVisible).EntireRow.Delete: Rows.Hidden = False
    End If
End Sub