autofilter gebruiken is het simpelste in dit geval

Probeer dit eens

Sub deleteinc()
    Dim i As Integer
    With ActiveSheet
    For i = 2 To .Range("A65536").End(xlUp).Row
        If .Cells(i, 1) = "Y" Then
            .Cells(i, 3).ClearContents
        Else
        End If
next i
    .Range("A1").Select
    End With
    MsgBox "Macro werd uitgevoerd."
End Sub

Tot jullie dienst

WG

Wat betreft KlasseCell1, dat lijkt me niet nuttig. De eerste cel begint toch steeds op rij 2, of niet? Als dat niet het geval is en je wilt toch KlasseCell1 gebruiken, doe dan in de macro:

Sub deleteinc()
    Dim i As Integer
    With ActiveSheet
    For i = .Range("KlasseCell1").Row To .Range("KlasseCelln").Row
        If .Cells(i, 1) = "Y" Then
            .Cells(i, 3).ClearContents
        Else
        End If
next i
    .Range("A1").Select
    End With
    MsgBox "Macro werd uitgevoerd."
End Sub

Het nut van KlasseCelln is mij ook niet duidelijk (net als die voor de andere kolommen, telkens cell1 en celln), maar als jij ze wilt gebruiken, zie dan in de macro.

De methode die ik voorstelde is toepasbaar ook als er nieuwe rijen ingevoegd worden. Toch geen absurde veronderstelling hé... Maar jij kiest / beslist.

Tot jullie dienst

WG

Als ik persoonlijk advies mag geven, met die naam KlasseCelln en soortgelijke naam, ben je niet veel. De instructie   .Range("A65536").End(xlUp).Row     in de macro is wel heel nuttig.

Succes ermee

WG