¿Cómo copiar y pegar omitendo filas en blanco en Excel?

Prueba con el siguiente codigo

Sub borra()
bfb = _
ActiveSheet.UsedRange.Row - 1 +
ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
For r = bfb To 1 Step -1
If Application.CountA(Rows(r)) = 0 Then Rows
(r).Delete
Next r
End Sub

espero te sirva

Saludos
Gil Romero

Necesito eliminar un rango amplio de filas en blanco

intercaladas entre filas

de datos en Excel,¿cómo es posible hacerlo de forma

sencilla y rà¡pida?

.