请求帮助修改代码

摩米

原本是统计单元格数量的代码，单元格是可以统计了，但是导致表格一些功能无法使用。
1. 单元格无法复制粘贴。
2. 撤销 无法使用，变成了灰色。

原代码：

        Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
         [a2].ClearContents
          If Target.Count > 1 Then
              [a2] = Target.Count
          End If
End Sub


请老师帮忙改一下，让那些不能使用的功能恢复使用。
EXCEL版本是2019
非常感谢！！

zhjlgaojuan

这个问题没人能解决，VBA代码的运行导致工作表发生变化就会出现这些问题

清风竹-

请看附件。