Mensaje anterior contestado por Hector

Héctor muchas gracias

La primera parte de la macro resuelve perfectamente mi
primera pregunta.
La 2ª pregunta que corresponde a una 2ª macro es la
siguiente
Supongamos un rango A1;X65536
Quisiera que la macro buscara en la columna A, y cada vez
que encuentre una celda vacia de esa columna(ejemplo
A14), copie el rango (ejemplo A13;C13), de la fila
inmediata superior que contenga datos.

Gracias por todo.

si cualquier duda... ¿comentas?
saludos,
hector.
___ en un modulo de codigo 'normal' ___
Sub Borrar10_y_Copiar()
Dim Fila As Long
With ActiveSheet
For Fila = .Range("a65536").End(xlUp).Row To 11

Step -1

With .Range("a" & Fila)
If InStr(.Value, "--") > 0 Then
Range(.Offset(-10), .Offset

(0)).EntireRow.Delete

Fila = Fila - 10
End If
End With
Next
For Fila = 12 To .Range("a65536").End(xlUp).Row
With .Range("a" & Fila)
If Application.CountBlank(.EntireRow) = 256 Then
Range(.End(xlUp), .End(xlUp).Offset(,

3)).Copy .Offset(0)

End If
End With
Next
End With
End Sub