Macro copiar datos hoja y pegar en otra

[marcelooyarce]

Hola comunidad, les escribo para solicitar su ayuda, necesito que en el archivo adjunto en la hoja de datos, cada fila de la hoja 1 que se llama hoja de datos se copie la cantidad de veces que esta en la columna E en la segunda hoja llamada hoja 2. Tengo hecha una macro , pero tengo los siguientes problemas , si el valor de la columna E de la primera fila es menor que el segundo valor , empieza a copiar la segunda fila , no se porque pasa esto

Ademas , solo debe copiar hasta la fila 9 de la hoja 2 y de ahi saltar a la columna S y seguir hasta la fila 9 y despues saltar a la columna AK1 hasta la fila 9 , sumando en total 24

Espero me puedan ayudar, no puede subir el archivo , pero les subo el codigo que tengo ahora

Sub Macro3()

    libroactual = ActiveWorkbook.Name

    nombrehoja = ActiveSheet.Name

    suma = 0

    For i = 1 To Range("A1048576").End(xlUp).Row


    valor = Cells(i, 5)

    suma = valor + suma


    If suma < 25 Then


      If suma < 9 Then


      For x = 1 To valor


      For j = 1 To 4


      celda = Cells(i, j)

      Sheets("hoja2").Select

      Cells(x, j) = celda

      Sheets(nombrehoja).Select


      Next j


      Next x


      End If




    End If


    Next i



End Sub[/CODE]

Muchas Gracias