【VBA】値のみコピー

Question

前提・実現したいこと

マクロVBAで、別ブック(Book1)のシート（Sheet1)をTest.xlsmにコピーしてくるという
コードを書きました。
別ブックのシートにはエクセル関数が入れてあるので
値のみだけをコピーしてきたいです。
そのために、以下のコードに追加すべきコードを教えていただきたいです。

発生している問題・エラーメッセージ

エラーメッセージ

該当のソースコード

Sub test()


' ブック("Book1.xlsx)のシート(“Sheet1”)をアクティブ
Workbooks("Book1.xlsx").Worksheets("Sheet1").Activate
' アクティブなシートをコピーして、ブック("Test.xlsm")の１番目のシートの後に挿入
ActiveSheet.Copy after:=Workbooks("Test.xlsm").Sheets(1)


End Sub

Answer 1

Sub sample()

    Dim moto As Worksheet, addr As String
    Set moto = Workbooks("Book1.xlsx").Worksheets("Sheet1")
    addr = moto.UsedRange.Address
    
    Dim saki As Worksheet
    Set saki = Workbooks("Test.xlsm").Sheets(1)
    saki.Range(addr).Value = moto.UsedRange.Value
End Sub

Answer 2

数式が入力されているセルがあるのですよね
それを指定すればよろしいかと

Comments

[pomiw0000]

セルの選択範囲が多すぎて、範囲が決まってないです????

[hex309]

一切数式を残さなくて良いなら、表全体とかシート全体という手もあります

[pomiw0000]

数式は一切残さなくても大丈夫です。シート全体をもってきたいです。

Answer 3

以下を参考にしてみてください。
Valueプロパティを使用します。

https://www.relief.jp/docs/excel-vba-paste-values-other-sheet.html

コピー元とコピー先を同じにすれば、値に置き換わるかと

Comments

[pomiw0000]

Rangeの部分には何を入力すればいいでしょうか？