How do I delete black text cells but keep colored ones?

[rocket1406]

I need to delete ALL black text cells, and only keep colored ones.

http://www.putfile.com/pic.php?img=5810668

Please ignore the circles, because I now want to delete ALL black text fields.

In addition, I need the cells shifted up. So it should do the same thing as Right Click --> Delete --> Shift Cells Up --> OK.

Is there any way I can do that with a command or macro? And if so, can you PLEASE tell me how to do that real quick?

Thanks so much, this would save me hours everyday.