VBA Вставить формат ячеек.

[Zzema]

Здравствуйте, подскажите пожалуйста:
Записал макрорекодером вставку форматирования с одного листа на другой.
Sub Macros3()
Range("B31:L35").Select
Selection.Copy
Sheets("TreRes").Select
Range("B21:L25").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
Вопрос: Как можно сделать подобную операцию, без использования операции Select (Чтобы меньше времени затрачивалось на выполнение этого действия)

[SAS888]

Так:

Range("B31:L35").Copy
Sheets("TreRes").Range("B21:L25").PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False

Только имейте ввиду, что исходный лист останется активным.