在Excel中复制范围不起作用

Question

所以我想复制excel中的范围，从单元格A2开始直到B列中最后一次使用的行。

我想从我要复制的最后一行之后的第二行中的A列开始粘贴它。但是，当我尝试在此行中编译代码时，我得到了 424 object required error ：

 Set CopyRng =  ActiveSheet.Range(Data_Range).Select

这是我的代码：

Private Sub CommandButton6_Click()
Dim RC As Long, CopyRng As Range

RC = ActiveSheet.Cells.Find(what:="*", SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row

Data_Range = "$A$2" & " : " & "$B$" & RC
Set CopyRng =  ActiveSheet.Range(Data_Range).Select

CopyRng.Copy

With Range("$A$" & RC + 2)
  .PasteSpecial xlPasteColumnWidths
  .PasteSpecial xlPasteValuesAndNumberFormats
  .PasteSpecial xlPasteFormats
End With

End Sub

我的代码中是否有人可以向我提供有关此错误的建议。谢谢！