Delete veriable range of rows quickly

[KLund1]

I have 10,000 rows of data. Column D has $ amts from positive to negative, with about 4,000 to 5,000 rows with a $0.00 amt. The starting row and ending row of $0.0 changes each week we use this data.
Does anyone have some excel 2000 macro code that can quickly delete these rows?
I wrote a macro that can do this 1 row at a time, but our old, slow work computer takes 15 minutes to run it.
Thanks

 

[Armando Montes]

The fastest way is through autofilter.

 

[Glory]

a = ThisWorkbook.Sheets("Name").Range("D" & _
    ThisWorkbook.Sheets("Name").Range("D" & Rows.Count).End(xlUp).Row).Row
 
Range("D:D" & a).ClearContents

 

[Marcelo Branco]

Hi,

Take a look at
http://www.rondebruin.nl/delete.htm

Specially in
Use AutoFilter to delete rows
One Criteria

HTH

M.

 

[Glory]

Awesome link.

*saved*

 

[Marcelo Branco]

Awesome link.

*saved*

Glory,

Yes it is!!!

See also the Tips. Awesome!

M.