Excel - Eliminar celdas vacías

Buenos días compañeros! Me surge un problema en el que cuando tengo una obra (puede ser que esté Abierta o Cerrada) me ponga el valor de la celda o no. Pongo un ejemplo mejor:

LUGAR OBRA ESTADO OBRA + LUGAR (oculto en la hoja)

Guadalajara Fontanería Abierta Fontanería Guadalajara
Madrid Electricidad Cerrada
Oviedo Impermeabilización Cerrada
Jaén Cimentación Abierta Cimentación Jaén
Salamanca Electricidad Cerrada
Granada Estructura Abierta Estructura Granada

Etc, con lo cual la obra que esté cerrada no me pondrá nada en OBRA + LUGAR, para que en otra hoja, me coloque en fila y sin celdas vacías todas las obras abiertas, es decir, quedaría de la siguiente manera:

Fontanería Guadalajara
Cimentación Jaén
Estructura Granada

¿Podeis ayudarme? Muchas gracias.

Me supongo que deves de tener la informacion por columnas
LUGAR OBRA ESTADO OBRA+ LUGAR
Colums A Colums B Colums C Colums J

Si es asi intenta con este macro, te llevara los resutados a la coulmna J

Sub FindText()

V_1 = Application.WorksheetFunction.CountA([A:A])
V_2 = 1

For REP = 1 To V_1
If "Abierta" = Range("C" & V_2).Value Then
Past = Application.WorksheetFunction.CountA([J:J]) + 1
Range("J" & Past).Value = Range("A" & V_2).Value & " " & Range("B" & V_2).Value
V_2 = V_2 + 1
Else
V_2 = V_2 + 1
End If
Next REP
End Sub


Espero te sirva
Mike

Muchas gracias por tu atención Mike. He intentado aplicar tu código a la hoja que tengo y me surge un problema. Te lo comento:

En la Columna A (A1:A70) sitúo si está abierta o cerrada la obra. En la Columna B (B1:B70) establezco el nombre de la obra. Y finalmente en la columna N (que está combinada con las columnas O y P, aunque especifico N7:N70, que es el destino final)

Claro al ejecutar la macro, me coloca en la casilla N1 la última de las obras tan solo. Es decir, no se coloca en la N7 que es la primera fila y tampoco pone las obras abiertas, tan solo una.

Seguramente el error lo tengo en el código que he puesto ¿Qué puedo hacer?


Sub FindText()

V_1 = Application.WorksheetFunction.CountA([B1:B100])
V_2 = 1

For REP = 1 To V_1
If "Abierta" = Range("A" & V_2).Value Then
Past = Application.WorksheetFunction.CountA([N7:N70]) + 1
Range("N" & Past).Value = Range("B" & V_2).Value
V_2 = V_2 + 1
Else
V_2 = V_2 + 1
End If
Next REP
End Sub


MUCHAS GRACIAS!!

Me confundiste un poco si quieres maname el File por mail y yo me encargo del archivo

Slds

Miguel