Boa tarde Pessoal.

Achei esse código na internet.

Sub Oculta_Linha()
Dim faixa As Range
Dim celula As Range
Set faixa = Range("A1:A50")
For Each celula In faixa
      Rows(celula.Row).Select
    Selection.EntireRow.Hidden = (celula.Value = "X")
Next
End Sub

Só por curiosidade eu tentei em vez de ocultar excluir as linhas deixando o código assim:

Sub Oculta_Linha()
Dim faixa As Range
Dim celula As Range
Set faixa = Range("A1:A50")
For Each celula In faixa
      Rows(celula.Row).Select
    Selection.Delete Shift:=xlUp = (celula.Value = "X")
Next
End Sub

Quase da certo, eu coloquei na seleção de A1 até A50, deixei 30 células com o Valor "X", e a macro exclui somente uns 8, nunca exclui a mesma quantidade.

Alguém sabe o porque ?

Obrigado!