Как присвоить скопировать Range и не задействовать буфер обмена? - VB

Формулировка задачи:

Имеется два листа
1. tmpSheet
2. curSheet.
Необходимо Range с tmpSheet перенести на curSheet со всеми значениями, форматированием, шириной столбцов и высотой ячеек и т.д., но не задействовать при этом буфер обмена.
С буфером обмена у меня работает следующим образом:
На TmpSheet выделяем Range c координатами top, Left, bottom, right следующим образом:
tmpSheet.range(tmpSheet.Cells(top, left), tmpSheet.Cells(Bottom, right)).Copy
curSheet.Cells(1, 1).PasteSpecial Paste:=xlAll
Если кто знает, подскажите пжлст, как сделать это без использования буфера обмена?

Решение задачи: «Как присвоить скопировать Range и не задействовать буфер обмена?»

textual
                            Листинг программы 
                        

                            <font color="blue">Sub</font> a()
    <font color="blue">Dim</font> r1 <font color="blue">As</font> Range, r2 <font color="blue">As</font> Range, r3 <font color="blue">As</font> Range
    <font color="blue">Set</font> r1 = ActiveSheet.Range(<font color="teal">"A1:A2"</font>)
    <font color="blue">Set</font> r2 = ActiveSheet.Range[color=red](<font color="teal">"B1"</font>)[/color]
    r1.Copy Destination:=r2
<font color="blue">End</font> <font color="blue">Sub</font>
                        