copyメソッドとpasteメソッどでコピー

Sub Macro0507()
Selection.Copy
Range(“B8”).Activate
ActiveSheet.Paste
End Sub