Este código:

Sub BorrarCeldasSinColor()Application.ScreenUpdating

For Each cell In Range("J19:IM19,J22:IM22,J25:IM25,J28:IM28,J31:IM31,J37:IM37,J40:IM40,J43:IM43,J49:IM49,J55:IM55,J55:IM55,J61:IM61")

   If cell.Interior.ColorIndex = xlNone Then [COLOR=#ff0000][B]cell = ""[/B][/COLOR]

Next

End Sub

[/CODE]

es un 90% mas rápido que este:

[CODE]
Sub BorrarCeldasSinColor()
Application.ScreenUpdating
For Each cell In Range("J19:IM19,J22:IM22,J25:IM25,J28:IM28,J31:IM31,J37:IM37,J40:IM40,J43:IM43,J49:IM49,J55:IM55,J55:IM55,J61:IM61")
If cell.Interior.ColorIndex = xlNone Then [B][COLOR=#ff0000]cell.ClearContents[/COLOR][/B]
Next
End Sub


[/CODE]

Se admiten opiniones.

Saludos

Antony

Esto cell = "" no borra nada, ni siquiera el dato que contiene la celda, pruebalo?

Haciendo mis pruebas cell.Value = "" si borra el contenido pero es mas rapido cell.ClearContents

Saludos

Porque el primero esta remplazando no borrando.

Saludos

Ademas cell = "" funciona pero declarando la variable cell: Dim cell As Range

Saludos a ambos!

Macro Antonio....

muy buena tu solución de optimización de código!