Sub セルをコピーする()

    Range("A1").Copy

End Sub