Macro to delete certain rows

[Sunline]

hello all , have looked thru these on here but alot seem more complicated than my request .

Is there a macro which will delete all rows greater than row 1 being headings and less than row 76,999 .

If there is also would there be one to delete rows between and counting row 13,999 and row 33,999 .
Thanks .

 

[cgcamal]

Hi Sunline,

Maybe if you explain a little bit more what you want to get and it would be fine if you show a sample to work with.

Do you want to clear contents in rows between rows x and y or eliminate rows between rows x and y?

In the 2nd question, do you want to count rows?

Regards.

 

[Sunline]

Hi , looking for 2 macros independent of each other , yes too delete total rows , leaving heading row 1 , so delete every row from row 2 too row 76,999 .

I dont want to do both in one go , i used these 2 examples so i could use them to suit and change rows numbers as needed .

And delete entire rows from row 13,999 and too row 33,999 .
Thanks ,

 

[jolivanes]

You don't mean something like this, do you?

Sub DeleteLotsOfRowsA()
Rows("2:76998").Delete Shift:=xlUp
End Sub

Sub DeleteLotsOfRowsB()
Rows("14000:33998").Delete Shift:=xlUp
End Sub