Copia de datos

[Hugo Mario]

Buenas noches!
Soy un usuario de primera hora de Excel (incluso desde el viejo Lotus 1-2-3...
Los avances vertiginosos van más rápido que mi edad, y hay cosas que posiblemente sean sencillas, pero no encuentro la macro apropiada para resolver.
Mi problema es el siguiente:

Tengo un libro con dos hojas. En una de ellas, hay mil líneas ocupadas con seis columnas cada una, con datos de funcionarios.
En la otra, pretendo generar "fichas" con los datos ordenados de la primer hoja, pero en otra posición.
Por ejemplo : los datos de A1, B1, C1, D1, E1 y F1 debo copiarlos en la otra hoja en A1, A2,A3,A4,A5 Y A6... luego, los de A2, B2, C2, D2, E2 y F2 necesitos ubicarlos en A25, A26, A27, A28, A29 y A30, y así sucesivamente hasta llegar a la última línea de datos de la hoja uno, que es aproximadamente la 980.
No encuentro la forma de generar una macro que cumpla con esta necesidad.
Agradezco a quien pueda orientarme en este sentido.
Desde ya, muchas gracias!

 

[johnmpl]

Hola!

Prueba con esta macro:

Sub CopiaPuntual()    
    uf = Hoja1.Range("A" & Rows.Count).End(xlUp).Row
    uc = Hoja1.Cells(1, Columns.Count).End(xlToLeft).Column
    
    For i = 1 To uf
        For j = 1 To uc
            Hoja2.Cells(24 * (i - 1) + j, 1) = Hoja1.Cells(i, j)
        Next j
    Next i
End Sub

Con esto, obtendrás lo que pediste!

Espero haberte ayudado, Dios te bendiga!