値を貼り付け先と乗算しる

Sub Macro0509()
ActiveCell.Copy
Range(“C3:E6”).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlPasteSpecialOperationMultiply
Application.CutCopyMode = False
End Sub