Copiar dos tablas con rangos distintos en otra hoja con rangos distintos

Me gustaría una macro o código para copiar dos tablas de la hoja 1 (ej: a1:c3 y a20:c22) en otra hoja con otros rangos distintos.

Si el rango anterior (A1:C3 y A20:C22) lo puedo copiar en hoja2 en el rango (F1:H3 y F20:H22)

Respuesta
1

[Hola 

va la macro 

Sub copiar()
    Set h1 = Sheets("Hoja1")
    Set h2 = Sheets("Hoja2")
    '
    h1.Range("A1:C3").Copy h2.Range("F1")
    h1.Range("A20:C22").Copy h2.Range("F20")
    MsgBox "fin"
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas