Macro para ocultar filas que no cumplan cierto criterio

·

Supondré que la columna A es la que marca la longitud de la hoja, el último dato de una clumna A será la última fila. También supongo que se empieza por la segunda fila ya que la primera suele ser un encabezado. Ambas cosas las puedes modificar si quieres. Esta es la macro:

Sub OcultarFilas()Dim i, ulFila As IntegerulFila = Range("A" & Rows.Count).End(xlUp).RowFor i = 2 To ulFila    Rows(i).Hidden = IsEmpty(Cells(i, "G"))NextEnd Sub