Excel宏，选择具有数据和格式作为表格的单元格

Question

我需要创建一个宏，该宏选择所有包含数据的单元格并将其格式设置为表样式介质2。我有这段代码，

Sub A_SelectAllMakeTable()
    Dim tbl As ListObject
    Dim rng As Range

    Set rng = Range(Range("A7"), Range("A7").SpecialCells(xlLastCell))
    Set tbl = ActiveSheet.ListObjects.Add(xlSrcRange, rng, , xlYes)
    tbl.TableStyle = "TableStyleMedium2"
End Sub

但是由于某种原因，它会选择没有数据的单元格，然后格式化表格。你知道为什么会这样吗？