Boa noite
Tenho a seguinte macro para copiar para uma nova aba:

Sub Copiar()
Sheets("modelo").Select
Columns("A:D").Select
Selection.Copy
Sheets("nome").Select
Columns("A:D").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

No entanto, não copia com a mesma formatação, ou seja, mais concretamente as margens, como faço para alterar isso? Alguém tem uma forma para rodar, obrigado.
Att.,
Rui