Copiar valores de una tabla a otra con macros

Te anexo la macro

Sub Copiar_Veces()
'Por.Dante Amor
    Set h1 = Sheets("Hoja1")
    Set h2 = Sheets("Hoja2")
    h2.Cells.Clear
    j = 1
    For i = 1 To 50
        h1.Range("A1:A50").Copy h2.Range("A" & j)
        j = j + 50
    Next
    MsgBox "Fin"
End Sub

'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

Hola muchas gracias el codigo funciona muy bien, pero creo que me exprese mal, una disculpa, pero en esencia lo que hace la macro es lo que quiero pero no quiero que lo que se repita 50 veces sea toda la tabla sino cada valor de tabla. Es decir en mi tabla de la hoja 1 tengo en la celda A1 el valor de 1 hasta la A50 el valor de 50, que cree una tabla en la hoja 2 pero que el orden se conserve es decir los primeros 50 valores sean del valor 1 seguidos de 50 veces el valor de 2 y así sucesivamente hasta el 50.