vba 判断工作表是否为空的问题

本人写了个判断工作表是否为空的VBA 代码，如下所示：
Sub jiaru11()
Dim a
Set a = Sheet1.UsedRange
If IsEmpty(a) Then
MsgBox "粘贴页为空，请添加关键词！！！", vbExclamation, "警告"
GoTo 200
Else:
MsgBox "not empty"
ar = Sheet1.Range("A1").CurrentRegion
dw = Array(1, 3, 4, 2)
ReDim br(1 To UBound(ar), 1 To 4)
For i = 2 To UBound(ar)
m = m + 1
For j = 0 To UBound(dw)
br(m, j + 1) = ar(i, dw(j))
Next
Next
Sheet2.Range("A16").Resize(m, 4) = br
End If
200:
End Sub

第一次运行判断是正确的，但是我把sheet1中内容delete键删除，再运行代码做判断时，就会提示sheet1不为空，是不是因为delete键删除表没完全删除的原因？
本人博客：素梅昊翔博客，张昊翔博客，欢迎交流

相关了解……