Cellen verwijderen bij een bepaalde celwaarde

[dinge]

Goedenavond

Is er een mogelijkheid om een aantal cellen in een rij te verwijderen wanneer een bepaalde cel aan een waarde komt.
Ik heb nu de volgende code gebruikt:

For X = doelregel To BeginRegel + 0 Step -1
    If Doel.Range("J" & X) < 3 Then
        Rows(X).EntireRow.Delete
    End If
Next X

Als bijvoorbeeld in kolom J5 de waarde kleiner dan drie is word deze hele rij (5) verwijderd.
Is het mogelijk dat alleen de cellen A t/m I (in dit geval van rij 5) verwijderd worden i.p.v. de hele rij?
Ik had al geprobeerd om Rows(X) te veranderen in Cells("A:I") alleen dat werkt niet
Heb ook al gekeken of ik er met F1 functie uit kwam, maar helaas.

Is het wel mogelijk wat ik wil?

 

[HSV]

zo beter?

For X = doelregel To BeginRegel Step -1
    If Doel.Range("J" & X) < 3 Then doel.range("A"& x).resize(,9).Delete
Next X

 

[dinge]

Goedenavond HSV

Dit doet inderdaad wat ik voor ogen had.

Super bedankt voor de snelle reactie

:thumb::thumb::thumb::thumb::thumb::thumb: