Excluir linhas no macro do excel

[Yasmim Sato]

Olá, 

 

 

 

Eu tenho uma planilha com inúmeros países e seus respectivos dados... 

Os países estão na coluna A e eu preciso excluir as linhas de determinados países. Por exemplo, eu quero excluir todas as linhas que têm as palavras "Austria", "Cyprus", "Poland" na coluna A... Como são muitos países para eu selecionar no filtro (além desses três acima), eu preciso de um macro que rode esse esquema... E sem correr o risco de ter células ocultas nessa planilha... 

Ai eu tava tentando esse macro, mas não está rodando: 

 

"Sub excluir()
For linha = 50000 To 1 Step -1
If ThisWorkbook.ActiveSheet.Range("A" & linha) = "Austria" Or _
ThisWorkbook.ActiveSheet.Range("A" & linha) = "Cyprus" Or _
ThisWorkbook.ActiveSheet.Range("A" & linha) = "Poland" Then

ThisWorkbook.ActiveSheet.Rows(linha).Delete


End If

Next linha

End Sub"

 

 

 

Estou com dificuldade inclusive em como rodar o macro... Se é na parte de "modulos" do excel

 

Desde já agradeço!

[Basole]

Yasmim, seja bem vinda a bordo, 

Segue ex. q procura na plan. ativa as palavras listada na coluna A da plan2 e deleta linha inteira da plan ativa:

* insira os nomes dos paises q deseja deletar na coluna "A" da plan2

Sub ProcuraeDeleta()    Dim ProcCell As Range    Dim j As Long     Application.ScreenUpdating = False    With Sheets("Plan2")    ' altere aqui de acordo c/ nome sua plan, onde esta o q quer deletar        For j = 1 To .Range("A" & Rows.Count).End(xlUp).Row            Set ProcCell = ActiveSheet.Range("A:A").Find(what:=.Range("A" & j).Value)            Do Until ProcCell Is Nothing                ProcCell.EntireRow.Delete                Set ProcCell = ActiveSheet.Range("A:A").FindNext            Loop        Next    End With    Application.ScreenUpdating = TrueEnd Sub