Option Explicit
Sub EntferneWennFilter3UngleichNeu()
Dim wks As Excel.Worksheet
Dim rng As Excel.Range
Set wks = ThisWorkbook.Worksheets(1)
Set rng = wks.Range("A1").CurrentRegion
If wks.AutoFilterMode Then wks.AutoFilterMode = False
rng.AutoFilter Field:=3, Criteria1:="<>Neu"
If Not Intersect(rng, rng.Offset(1), rng.SpecialCells(xlCellTypeVisible)) Is Nothing Then
Application.DisplayAlerts = False
Call Intersect(rng, rng.Offset(1), rng.SpecialCells(xlCellTypeVisible)).Delete
Application.DisplayAlerts = True
End If
rng.AutoFilter Field:=3
End Sub