MACRO COPIAR MÚLTIPLES CELDAS A OTRA HOJA

JAVISHALOM · el 20 de agosto

Hola buenas tardes, un cordial saludo...

Solicito ayuda con esta Macro, por favor...

Tengo un examen con 250 preguntas con opción "A" y "B", en la (Hoja Test), que requiero trasladar a la hoja "HRpta", para la evaluación y corrección las respuestas están distribuidas en orden diferente a como están registradas en la hoja inicial Test. Estaba usando esta macro que funcionaba perfectamente en un principio, no le he hecho nada, solo que al ejecutar la Macro solo traslada hasta el valor 101, (de 500 en total), pues debo mostrar en la Hoja resultados lo que realmente contestan en el test, si duplican o dejan de contestar, etc...

Sub ActualizaBD()

Dim wsDB As Worksheet, NR As Long
Set wsDB = Sheets("HRPTAS") ' Hoja de Destino
With Sheets("TEST") ' Hoja de Origen
'***** DESTINO - ORIGEN******

wsDB.Range("HRpt1a").Value = .Range("Rpt1a").Value '
wsDB.Range("HRpt2a").Value = .Range("Rpt2a").Value '
wsDB.Range("HRpt3a").Value = .Range("Rpt3a").Value '
wsDB.Range("HRpt4a").Value = .Range("Rpt4a").Value '
wsDB.Range("HRpt5a").Value = .Range("Rpt5a").Value '
wsDB.Range("HRpt6a").Value = .Range("Rpt6a").Value '
wsDB.Range("HRpt7a").Value = .Range("Rpt7a").Value '
wsDB.Range("HRpt8a").Value = .Range("Rpt8a").Value '

... ... ... ... ... ...

La macro ""está funcionando"", pero solo me traslada 101 datos de 500, qué debo corregir, quitar o incluir???

Muchas gracias

Javishalom