Fiquei procurando este comando um tempo atrás, nunca mais esqueço rsrs. Tenta este código, só troca os nomes, e vê se dá certo.

sub copia_formatacao ()

Workbooks(sua pasta).Worksheets(sua planilha).Range(intervalo_que_vai_ser_copiado).Select

Selection.Copy

Workbooks(sua pasta).Worksheets(sua planilha).Range("espaco1").Select

Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

Application.CutCopyMode = False

end sub

Só lembrando que se tiver trabalhandoi com apenas uma pasta e uma planilha a parte "Workbooks(sua pasta).Worksheets(sua planilha)" pode ser retirada. e precisa colocar o nome do outro intervalo em Range(intervalo_que_vai_ser_copiado).

Eu já tinha pensado em fazer por colar especial mesmo, porém não sabia que poderia fazer referência no nome com range("nome").

Obrigado