Macro copiar formato

Si lo que quieres es una copia exacta de una hoja solo has de pinchar en la esquina de lahoja encima de 1 a la derecha de A escoger copiar y situarte en A1 de la hoja que quieres y pegar
si solo quieres los formatos escoges pegado especial y seleccionas solo formatos
si sabes usar la grabadora de macros la pones en marcha y realizas esos pasos y ya tienes el código
que seria esto para la gemela
Sub Copiar()
    Cells.Select
    Selection.Copy
    Sheets("Hoja2").Select
    Range("A1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("A1").Select
End Sub
Y si solo quieres los formatos seria esta
Sub Copiar_Formato()
    Cells.Select
    Sheets("Hoja2").Select
    Range("A1").Select
    Sheets("Hoja1").Select
    Selection.Copy
    Sheets("Hoja2").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Range("A1").Select
End Sub
Ya me cuentas si era eso lo que necesitabas

Saludos,
Primero de todo quiero agradecerte la velocidad de respuesta. Creo que sí que es lo que me hasa puesto, pero tengo unas dudas a ver si me puede aclarar.
1. Al ejecutar la macro, en un principio parece que me la hace pero vuelve a su estado original y me pone selecciona destino o pulse pegar, lo hago pero no me sale. ¿QUé hago mal?
2. Yo no entiendo mucho de macros, pero he grabado una macro y he insertado un modulo con la programación que me has dado en microsoft viasual basic. Es ese el paso correcto, verdad ¿?
3.-LA macro que me has prpopuesto haría el cambio directo, es decir al cambiar el formato de la hoja de referencia me la cambia directamente a su gemela, o tengo que hacer ejeceutar macro ¿?
(Las macros ya están habilitadas)
Espero no agobiarte mucho.
Enorme gracias por tu colaboración
Saludos

Te explico si insertas un modulo y en el pegas este código
Sub Copiar()
    Cells.Select
    Selection.Copy
    Sheets("Hoja2").Select
    Range("A1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("A1").Select
End Sub
Tienes que ejecutarla para que lo realize
Eso si este código te copia la hoja activa osea la hoja en la que estas cuando ejecutas la macro y te lo copia en la hoja2 si la ejecutas en la hoja2 te quedara todo como esta
Si lo que quieres es que es ejecute sola debería ser cuando cambies algún dato en la hoja con el evento change explícame un poco mejor lo que quieres exactamente y te esplicaria como

De nuevo gracias
Lo que quiero es que cuando cambie el relleno de una celda en la hoja 1, me haga el mismo cambio en la hoja 2 pero a poder ser automático como hablamos.
Por ejemplo:
Si decido cambiar el relleno en la celda a3 de la hoja 1, pues que al hacerlo automáticamente me cabie el relleno de la celda a3 en la hoja 2.
(Lo querría así puesto que el color de esas celdas me determina los elementos a sumar.
Muchas Gracias

Vale mañana te paso el código

Ok espero tu respuesta
Gracias

Tienes esta solución
En el código de la hoja1 pega este código
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Macro1
Application.ScreenUpdating = True
End Sub
Luego insertas un modulo y pegas este otro codigo
Sub Macro1()
Dim strnombrehoja$, strrangocelda$
strnombrehoja$ = ActiveSheet.Name
strrangocelda$ = ActiveCell.Address
Cells.Select
    Selection.Copy
    Sheets("Hoja2").Select
    Range("A1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("A1").Select
    Sheets("Hoja1").Select
   Sheets(strnombrehoja$).Select
Range(strrangocelda$).Select
End Sub
Con esto cada vez que cambies un dato en la hoja 1 te copia toda la hoja en la hoja2
eso si, si cambias color tamaño de celda etc. no lo realizara mientras no pulses enter en alguna casilla que cambies datos
Queda la posibilidad de que en vez de ser cuando cambies un dato que sea cuando se calcule una fórmula o bien cuando hagas doble cilck en cualquier celda.
Si quieres alguna de estas opciones solo has de poner este codigo en la hoja
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Application.ScreenUpdating = False
Macro1
Application.ScreenUpdating = True
End Sub
ó para formula
Private Sub Worksheet_Calculate()
Application.ScreenUpdating = False
Macro1
Application.ScreenUpdating = True
End Sub
Si necesitas alguna aclaración dímelo

Hola d2enri,
Perfecto me decantaré final por el doble click, pero sólo una pregunta. Yo sólo quiero que me cambie el formato, lo datos no, puesto que una tabla recoge importes con iVA y la otra no. ¿Me podría ayudar por favor?
Muchas Gracias