ronierick,

Boa Tarde!

Para facilitar, compacte sua planilha e poste-a aqui.

segue:

http://rapidshare.com/files/2560428549/ ... se_EMP.zip

Boa noite!!

Eu não posso baixar seu arquivo, mas tente algo assim..

Obs: Para usar teclas de atalho com os códigos abaixo, use a pesquisa do fórum.
Leia também:
http://www.jorgepaulino.com/2011/09/exc ... as-de.html

Sub Teste()
    
    Dim lastRow As Long
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    
    With Range("A1:C1")
        If ActiveSheet.AutoFilterMode Then ActiveSheet.AutoFilter.Range.AutoFilter
        .AutoFilter field:=2, Criteria1:="1"
        Range("A2:C" & lastRow).SpecialCells(xlCellTypeVisible).EntireRow.Delete
        .AutoFilter
    End With

End Sub

Ou talvez isso

Sub teste2()
    lr = Cells(Rows.Count, 1).End(xlUp).Row
    If lr > 1 Then
        Range("A2:A" & lr).SpecialCells(xlCellTypeVisible).EntireRow.Delete
    End If
End Sub