简单宏连续执行两次

Question

我创建了一个宏以从表中获取值并将其“粘贴”到Excel的单元格中。问题是宏不能连续运行两次，而是第一次运行，但是当我再次运行它时，什么也没有发生。

例如，当我第一次运行它时，它将在“ BT11”单元格中分配“ 2019”。当我删除“ BT11”单元格中的内容并再次运行该宏时，它将单元格留空。

感谢您的帮助！

这是代码；

Sub Macro4()

Dim Table As Integer

Table = Empty

Table = ActiveSheet.ListObjects("Tableau27").DataBodyRange(1, 1).Value

Range("BT11") = Table

End Sub