VB Code To Delete Rows between 2 flags on loop

Hello and thanks in advance for any help.

I am trying to to put something together that will search through column AA:AA and if it finds a specific flag(Ex: "1") it will delete all rows under it until it hits another flag(Ex:"2"). I would want this to loop all the way through the sheet which does not have a defined amount of rows each time. Basically any data after a 1 should be removed and any data after a 2 should be kept in tact. Is there a way to set this up and also loop through the entire colum?

There are multiples of these. I have a code that locates a specific word and tags a 1 to the column and also tags a 2 based on another word. Each of these has multiple rows under them and I want to keep all data associated with the 2's. It would like like this below hopefully that will help I would want anything that is a 1 and the following rows deleted but anything that has a 2 and its rows would need to stay intact.

1
X
X
X
2
X
X
X
2
X
X
1
X
X
1
X
X
X
2

Oh man yes that worked perfectly thank you both for helping me on this...you guys are legit