Eliminacion de filas en excel

[mrocf]

Hola! SidV.
Una alternativa a lo mostrado por Antonio sería:

a) Selecciona el rango COMPLETO a evaluar;
b) Ejecuta la siguiente macro

Código:

Sub EliminaColumnas()
Dim ii As Integer, LastCol As Integer
ii = Selection.Column
LastCol = ii + Selection.Columns.Count - 1
Do While ii <= LastCol
  If WorksheetFunction.CountA(Intersect(Selection, Columns(ii))) = 0 Then
    Columns(ii).Delete
    LastCol = LastCol - 1
  Else
    ii = ii + 1
  End If
Loop
End Sub

En este caso, se evaluará el contenido de TODAS las columnas del rango seleccionado.

Saludos, Cacho.