Zellen mit bestimmten Inhalt löschen

Guten Morgen,

Ich hab da ein Problem....ich habe eine Excel-Tabelle wo viele unterschiedliche Positionen aufgeführt sind...
zu den Positionen gehören dann noch Infos wie Preis, Datum, Menge usw.
Jetzt gibts es jedoch eine Position die 20 Mal vorkommt, aber belanglos für mich ist.
Jetzt hätte ich gerne ein Makro, das überprüft ob der Wert "Porto" in einer Zelle in der Spalte "J" steht und wenn ja, dann diese Zellen löschen oder von mir aus auch ausblenden kann.
Und wenn nein, dann halt nix^^

Und es MUSS ein Makro sein, also VBA halt!!

Wäre cool wenn da einer was wüsste!!

Grüße
Astronomy

Sub löschePorto()
Dim i%
i = 2
Do Until ActiveSheet.Range("J" & i) = ""  
    If ActiveSheet.Range("J" & i).Value = "Porto" Then  
        ActiveSheet.Rows(i).Delete
        i = i - 1
    End If
    i = i + 1
Loop
End Sub

Sub PortoWeg()
Dim iZeile As Integer
iZeile = 2
Do While Cells(iZeile, "A") <> ""  
    With Cells(iZeile, "J")  
        If LCase(.Value) = "porto" Then  
            .EntireRow.Hidden = True
            '.EntireRow.Delete: iZeile = iZeile - 1  
        End If
    End With
iZeile = iZeile + 1
Loop
End Sub