他ブックの１枚目のシートのセル内容を全て、
現在開かれているブックの１枚目のシートにコピーします。

　コピー元のブック「Copy元.xls」を開いて、1番最初のシートの使われているセル
をUsedRangeプロパティを使って取得して、Copyメソッドで現在開かれているブック
「Test.xls」の1番最初のシートにコピーします。

Sub Test()

    Dim a As Variant
    Dim b As Variant
    
    Workbooks.Open Filename:="Copy元.xls"
    Set a = Workbooks("Copy元.xls").Worksheets(1).UsedRange
    Set b = Workbooks("Test.xls").Worksheets(1).Range("A1")

    a.Copy (b)

    Set a = Nothing
    Set b = Nothing
End Sub