Delete Rows FROM "X" UNTIL "Y" appears

[mariotnc]

Hello VBA partners, i need help with a sub rather easy.

I need one that do that, with this data:

Column A

10068
blank
blank
blank
blank
10069

i need a sub that deletes the entire row FROM 10068 until 10069 (the row with 10069 is not meant to be deleted)

I hope you can help me, and i hope i can retribute someday, when i have more experience.

Att,

Mario Tinoco

[Miraun]

Definitely not the prettiest way to do it, but here's a version for you:

Sub deleterows()
Range("A1").Activate
Do Until ActiveCell.Value = 10068
ActiveCell.Offset(1, 0).Activate
Loop
ActiveCell.Offset(1, 0).Activate
Do Until ActiveCell.Value = 10069
ActiveCell.EntireRow.delete
Loop
End Sub

[mariotnc]

Man, thanks for the ultra-fast answer.

It's ALMOST perfect, just because i need it to delete the row with "10068". All the rest is perfect and will help me a lot in my work here. Really, really thank you.

[arlu1201]

So its not only the blanks that should be deleted?

Why dont you show us a little bigger sample of your data so we can make a better fool-proof code for you?

[Miraun]

Easy fix!

Sub deleterows()
Range("A1").Activate
Do Until ActiveCell.Value = 10068
ActiveCell.Offset(1, 0).Activate
Loop
Do Until ActiveCell.Value = 10069
ActiveCell.EntireRow.delete
Loop
End Sub

[shauncol3]

Is there a way to have this loop through the entire sheet? if there were multiple sets of the 10068 and 10069 further down the sheet?

[mariotnc]

It's more than perfect now, that was just my need. I appreciate very much the help and attention (sorry for the messy english).

i think i'll need help soon, with some sending charts on e-mail body, but that's another chapter.

I will set as solved and give you stars.

Thanks again!

[Trebor76]

Sorry, my bad.