Macro para seleccionar un rango de datos entre dos condiciones

H o l a:

La primera parte ya la entendí, quieres que copie después de la palabra "Departamento" hasta encontrar una celda con números, ¿es correcto?

Ahora, ¿quieres qué busque otra palabra "Departamento" y copie los datos hasta encontrar otro número?

Es correcto, que seleccione y copie todos los rangos con ésta regla, emtre la palabra Departamento y el primer dato numérico y los pegue en otra hoja a prtir de la celda A2 sin dejar espacios

H o l a:

Te anexo la macro

Sub BuscarMeses()
'Por.Dante Amor
    Set h1 = Sheets("Hoja1")    'hoja con datos
    Set h2 = Sheets("Hoja2")    'hoja con resultados
    h2.Columns("A").ClearContents
    '
    j = 2
    u = h1.Range("A" & Rows.Count).End(xlUp).Row
    Set r = h1.Columns("A")
    Set b = r.Find("departamento", lookat:=xlWhole)
    If Not b Is Nothing Then
        ncell = b.Address
        Do
            For i = b.Row + 1 To u
                If IsNumeric(h1.Cells(i, "A")) Then
                    Exit For
                End If
                h2.Cells(j, "A") = h1.Cells(i, "A")
                j = j + 1
            Next
            Set b = r.FindNext(b)
        Loop While Not b Is Nothing And b.Address <> ncell
    End If
    MsgBox "Proceso terminado"
End Sub

‘

S a l u d o s . D a n t e   A m o r. Recuerda valorar la respuesta. G r a c i a s

Fuincionó de maravilla !!!! Gracias

Ya revisé a más detalle la información resultante de la macro y me está repitiendo 3 veces la misma información, marco ejemplo: Resultado en Hoja2

A2 = Bebes                                 A14 = Playa

A3 = Deportes                          A15 = Pijamas

A4 = Sonido                               A16 = Novias

A5 = Damas                               A17 = Playa

A6 = Bebes                                  A18 = Pijamas

A7 = Deportes                            A19 = Novias

A8 = Sonido                                A20 = Playa

A9 = Damas                                A21 = Pijamas

A10 = Bebes                               A22 = Novias

A11 = Deportes

A12 = Sonido

A13 = Damas

Cuando lo que tendría que resultar es:

A2 = Bebes

A3 = Deportes

A4 = Sonido

A5 = Damas

A6 = Playa

A7 = Pijamas

A8 = Novias

Ya que el rango Bebes, Deportes, Sonido y Damas se encuentra dentro de Departamento y un valor numérico, al igual que Playa Pijamas y Novias.

Puedes poner una imagen de la hoja1, para ver cómo están los datos originales.

Te anexo imagen: la columna A es de como se tiene acomodada la información, la columna B; es de como debe quedar y la C; de como está quedando

¿Modificaste la macro?

¿O estás ejecutando las 2 macros que te envié?

¿Estás ejecutando solamente una macro?

Ya le hice varias pruebas y sí me funciona.

Envíame el archivo con la macro para revisarlo.

Mi correo [email protected]

En el asunto del correo escribe tu nombre de usuario “Roberto Servin” y el título de esta pregunta.

No solo pegue los datos que me genera la macro que me ayudaste y coloque a mano como debería de quedar. Te la mando.