Sub アクティブセルの選択と別シートへのコピー()
‘
‘ アクティブセルの選択と別シートへのコピー
‘
Sheets(“コピー元シート名”).Select
Range(“A1”).Select
Selection.CurrentRegion.Select
Selection.Copy
Sheets(“コピー先シート名”).Select
Range(“A1”).Select
ActiveSheet.Paste
End Sub