求助代码优化，提取CAD表格内容到Excel中

Sub dldr()
Dim acadApp As Object, str, str2, arr
On Error Resume Next
Dim ThisDrawing As Object
Set acadApp = GetObject(, ".Application")  '打开CAD软件
If Err = 0 Then  '如果已经打开CAD软件
  AppActivate acadApp.Caption   '切换到CAD界面
    Set ThisDrawing = acadApp.ActiveDocument
    Set ssetObj2 = ThisDrawing.SelectionSets.Add("mxb2") '创建一个名为"mxb2"的选择集以放置图元
     ssetObj2.SelectOnScreen '屏幕上选择材料表的内容
     Count = ssetObj2.Count
    Set Rng = Application.InputBox("请指定需要放入规格的单元格", "目标单元格", , , , , , 8)
    j = Rng.Row: k = Rng.Column
      For i = Count - 1 To 0 Step -1
        SR = ssetObj2(i).textstring
            Cells(j, k) = SR
            j = j + 1
      Next i
   ThisDrawing.SelectionSets.Item("mxb2").Delete
End If
End Sub