VBAでCurrentRegionプロパティを使用する

Question

Sheet1のアクティブなセルの周囲のセルのブロックに対応する範囲のデータをコピーし、Sheet2に貼り付ける単純なVBAマクロを作成します。 （好ましくは、シート1と同じ住所にある）。

私が書いたコードは次のとおりです。

Option Explicit 
Dim Cello As Range 

Sub CopyCurrentRegion2() 
    Set Cello = Worksheets("Sheet1").Range(ActiveCell.Address) 
    Cello.CurrentRegion.Copy Sheets("Sheet2").Range(Cello) 
End Sub 

このPROGを修正してください。実行時エラーを与えている：1004

Answer 1

は考えてみましょう：

Sub CopyStuff() 
    With ActiveCell.CurrentRegion 
     .Copy Sheets("Sheet2").Range(.Address) 
    End With 
End Sub