Copiar valores desde una lista y pegarlos en varias hojas

[Perr0]

sólo para iluminarte el camino, lo demás te lo dejo en tus manos:

puedes poenr esta macro en cualquier hoja o modulo

Código vb:

Sub prueba()
    Dim y As Integer
    Dim hoja As Object
    y = 2
    For Each hoja In ActiveWorkbook.Worksheets
        'Message Box para que veas los valores, debes comentarlo
        MsgBox "nombre de la hoja:   " & hoja.Name _
        & Chr(13) & "indice de la hoja:   " & hoja.Index _
        & Chr(13) & "valor hoja 1:   " & ActiveWorkbook.Worksheets(1).Cells(y, 1)
        'pegado de la data que necesitas desde la hoja 35
        If hoja.Index > 35 Then hoja.Range("A1") = ActiveWorkbook.Worksheets(1).Cells(y, 1)
        y = y + 1
    Next
End Sub