Selektierte und unterhalb liegende Spalte löschen

  • Hallo,

    ich suche mit einem if-Befehl mach einem gewissen Textausdruck.
    Wenn dieser Textausdruck in der definierten Area gefunden wird soll die komplette Spalte und die darunter liegende Spalte gelöscht werden.
    Wie ich die Spalte ansich lösche habe ich schon rausbekommen.
    Aber nicht wie ich die darunter liegende auch noch mit weg bekomme.

    Hier wie ich meine Spalte bislang lösche:

    For Each Zelle In Range("A1:A300")
    If Zelle.Value = "PRT" Then Zelle.EntireRow.Delete
    Next Zelle

    Danke