Rellenar columnas con dato de una celda de otra hoja

H ol a: Te anexo la macro.

Sub Copiar2()
'Por.Dante Amor
    Application.ScreenUpdating = False
    Set h1 = Sheets("Formulas")     'hoja origen
    Set h2 = Sheets("val_padron")   'hoja destino
    cols = Array("", "C", "F", "N", "P", "R", "T", "Y", "AA", "AC", _
                 "AE", "AG", "AM", "AO", "AR", "BC", "BF", "BH", "BJ")
    '
    u = h2.UsedRange.Rows(h2.UsedRange.Rows.Count).Row
    For i = 1 To 18
        h1.Range("B" & i).Copy
        h2.Range(h2.Cells(3, cols(i)), h2.Cells(u, cols(i))).PasteSpecial xlPasteAll
    Next
    Application.ScreenUpdating = True
    MsgBox "fin"
End Sub

Te hago una observación, con esta instrucción:

u = h2. UsedRange. Rows(h2. UsedRange. Rows. Count). Row

Se encuentra la última celda con datos, pero tal vez, puede ser la última celda que hayas utilizado. Lo más eficiente sería encontrar la última fila con datos de alguna columna específica, por ejemplo, si en la hoja "val_padron" la columna A, siempre va a tener datos, entonces la línea para encontrar la última fila sería esta:

u = h2.Range("A" & Rows. Count).End(xlUp). Row

Lo que hice fue seguir tu macro, copiar B1 en C, B2 en F, etc.

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

Excelente función, muchas gracias... funciona muy bien, el detalle esta en que si existe una forma de no copiar la celda de la hoja2, si no más bien que se copie el contenido, es decir como cuando le das F2 a la celda la activas eliges el contenido, le das F2 a otra celda y la pegas, ¿será posible eso? Ya que cuando copia y pega la fórmula que deseo copiar cambia las referencias de las celdas por 2 ejemplo, si en la fórmula dice =SI(E2...) cuando se pega en la otra hoja me muestra =SI(G2...)

Solamente me guié por lo que pusiste en tu macro:

"PasteSpecial xlPasteAll"

Si quieres valores, entonces cambia esta línea:

H2. Range(h2. Cells(3, cols(i)), h2. Cells(u, cols(i))). PasteSpecial xlPasteAll

Por esta:

H2. Range(h2. Cells(3, cols(i)), h2. Cells(u, cols(i))).PasteSpecial xlValues

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

Amigo Dante antes que todo, agradecerte por la ayuda brindada, quisiera saber si existe alguna función para hacer estos pasos:

Ya que al pegar con xlPasteAll copia la fórmula pero como digo, las referencias se cambian, ejemplo:

=SI(W3="","campo vacío",SI(W3="F","ok",SI(W3="M","ok","verificar")))

la instruccion copia a la otra hoja asi:

=SI(AH3="","campo vacío",SI(AH3="F","ok",SI(AH3="M","ok","verificar")))

Ahora si cambio a xlValues copiara un valor más no la fórmula, podrías ayudarme con esa consulta, sin que abra otra pregunta, Porfavoooooorrr ='( =D gracias.