You can get rid of the select

Range("b20000:o20000").AutoFill Destination:=Range("b10:o20000"),
Type:=xlFillDefault
Range("b10:o20000").Select

but I doubt that will make much difference. Also try turning screenupdating
off and setting calculation to manual, and reset after.


--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"Gijs Breedveld" wrote in message
...
I have code which clears a table which was generated the previous run. The
code is:

Range("b20000:o20000").Select
Selection.AutoFill Destination:=Range("b10:o20000"),
Type:=xlFillDefault
Range("b10:o20000").Select

I just want to clear the contents and the formats of the previous table
before I build up the next table.

Is there code which can do this faster? It is very slow. Takes about 60
seconds.

Best regards, Gijs