VBA 値だけをコピー

Question

Dim moto As Worksheet, saki As Worksheet
    Set moto = Sheets("A")
    Set saki = Sheets("B")
    Dim lastRow As Long
    lastRow = moto.Range("D:E").Find(What:="合計", LookAt:=xlPart).Row
    moto.Range("A6:K" & lastRow).Copy
    saki.Range("A4").Insert Shift:=xlDown

現在このようなコードでコピペをしております。
このコードでコピーをすると数式などもコピーしてしまいます。
値だけのコピーを教えてください。

Comments

[hatena19]

数式のセルは、値に変換してコピーするのか、空白セルとしてコピーするのかどちらでしょうか。

[321Kurumins]

moto.Range("A6:K" & lastRow)
この範囲のセルはすべて値が入力されているので値だけコピーしたいです。
値が入っているところの数式をコピーしてしまって値が入力されません。
よろしくお願いします。

Answer 1

saki.Range("A4").Insert Shift:=xlDown
の下に
Sheets("B").Select
'A6-A4=2
'合計の右側のセルに数式があるとしました
Rows(lastRow - 2).Select
Selection.Value = Selection.Value
を追加してください
参考動画
https://www.youtube.com/watch?v=KUo75hTZWtk

Answer 2

「値貼り付け」したいということでよろしいでしょうか。
それであれば、以下、ご参考まで。

https://www.moug.net/tech/exvba/0050104.html