Entonces deberás hacer algo como esto:
Te sitúas en la celda "origen" (la del formato que quieres copiar), y ejecutas este macro:
Código:
Sub copiar()
ActiveCell.Copy
End Sub
Luego te sitúas en la celda de destino, y ejecutas esto:
Código:
Sub pegar()
ActiveCell.PasteSpecial Paste:=xlPasteFormats
End Sub
Aunque lo que planteas no tiene mucho sentido hacerlo mediante macros, porque puedes hacerlo copiando y pegando el formato a través de los menús.