Excel - Subir una fila hacia arriba

Hola,
tengo un For en el que quiero que me busque las filas que están vacías y me las borre.

For Each cell In Range("A10:A1500")
If cell = "" Then
cell.EntireRow.Delete
cell.Offset(-1)
End If
Next

El problema está cuando hay más de una fila vacía seguida. Ya que me borra la primera que encuentra, pero la segunda se la salta y sigue por la tercera.
Para solucionarlo puse la sentencia Cell.Offset(-1) y todas las variantes posibles pero siempre me da error.

¿qué error tengo?

Prueba con las modificaciones que te pongo.
El error te lo da puesto que estas eliminando un elemento del rango.
Posiblemente se puede solucionar de otra forma, pero lo que se me ha ocurrido es la siguiente.

Prueba con las modificaciones que te pongo.Está comentado para mayor facilidad,
Un saludo.

Sub borrar()

Dim valor(1 To 10) ' definimos variable para contabilizar celdas vacias

'hacemos bucle inicial para buscar valores
For Each cell In Range("A1:A10")
fila = fila + 1
If cell = "" Then

valor(fila) = 1 ' establecemos valor 1 como flag para borrar posteriormente


End If

Next

'PASAMOS A BORRAR
For i = 1 To fila

If valor(i) = 1 Then
Cells(i - de, 1).EntireRow.Delete 'decrementamos las filas borradas

de = de + 1 ' Contador para tener en cuenta borrado filas

End If

Next i

End Sub

gracias frany
muy currado el asunto.
sin embargo, ya lo he solucionado de una manera muy sencilla:

Range("A10:A1500").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

gracias por todo.

No dije que fuera la unica manera, fué la solucion que pude hacer.
La tuya me la apuntaré jajaja.
Un saludo.

en realidad te lo resolvieron:

http://foros.emagister.com/tema-subir_una_fila_hacia_arriba_offse-12890-880302-1.htm

claro.
por eso he hecho esta pregunta. porque no sabia responderla

no te fíes 100% de SpecialCells ...