Elimina filas vacias de un rango

Con esta macro podras eliminar las filas vacias que tengas en un rango

Solamento selecciona el rango el cual quieres limpiar y dale al botón

Código de la macro

Sub EliminarFilasVacias()

Dim Rango As Range
Dim UltimaFila As Integer
Dim Filas As Integer
Dim Columnas As Integer
Dim Fila As Range
Dim Celda As Range
Dim Datos As String
Dim FilasEliminadas As Integer

Set Rango = Selection
Filas = Rango.Rows.Count
Columnas = Rango.Columns.Count
UltimaFila = Rango.Row + Filas
FilasEliminadas = 0

ActiveCell.Select

Do While Selection.Row < UltimaFila – FilasEliminadas

Set Fila = Range(Selection, Selection.Offset(0, Columnas - 1))

    Datos = ""

    For Each Celda In Fila
        Datos = Datos & Celda.Value
    Next Celda

If Datos = "" Then
    Fila.Delete
    ActiveCell.Offset(-1, 0).Select
    FilasEliminadas = FilasEliminadas + 1
Else

End If

ActiveCell.Offset(1, 0).Select

Loop

End Sub

Como copiar y pegar el código

Como insertar una macro en la cinta de opciones personalizada