Макрос 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

Но по какой-то причине он выбирает ячейки, в которых нет данных, и форматирует их в таблице. Вы знаете, почему это может быть?