http://vba-excel.ru/excel/formatting/copy-format

'**************************************************************
' Sub : PasteFormat
' Author : Желтов Алексей
' Date : 11.06.2017
' Purpose : Вставка формата по образцу
'**************************************************************
Sub PasteFormat()
If Application.CutCopyMode = False Then _
MsgBox "Необходимо предварительно скопировать форматирование нажав Ctrl+C", vbOKOnly Or vbInformation, "Скопируйте формат": Exit Sub

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