Sub 宏名称()

Sheets(1).Range("A1").Copy


End Sub