I'm looking for a way to do this, as fast as possible:

For Each Rng In .UsedRange
        If Len(Rng) = 0 Or Trim(Rng) = "" Then Rng.ClearContents
Next Rng
The things is I have over 10k lines and 40 columns, and it takes a while!

I need to do this because the data I receive is not consistent.
Although cells seem empty, some aren't, and therefore are seen separately in my pivot tables.
So I need to "force" them to be empty.

Any help is appreciated =)