如何在Excel表里制作一个复制按钮，复制的区域不固定（根据随意选定区域然后点击按钮起到复制作用）请问代码怎么写？

Sub CopyRang()
Dim CR
CR = InputBox("请输入需要拷贝的区域，例如“A1:E5”", "系统提醒：输入不区分大小写", "A1:E5")
If Trim(CR) = "" Then
    MsgBox ("您没有输入区域，将使用默认区域！")
    CR = "A1:E5"
End If

    Range(CR).Copy

End Sub
----------------------------------------------------------
这个是让你输入区域复制，可以解决问题吗？