Excel将动态范围格式化为表格

Question

我有一张从数据库中提取的表格。返回的数据是动态的，包括列和行。我正在尝试编写一个宏来格式化这些数据。 我已经审查了十几条建议，但没有一条有效。

尽管我的解决方案，我得到的错误表明“表不能与当前表重叠”或者尝试设置错误的变量类型时出现各种调试错误。 我没有尝试过任何工作。

Sub FormatRawDataTab()
' Formats the Raw Data tab after data refresh

Dim wrkSheet As Worksheet
Dim tblSelect As ListObject

Worksheets("Raw Data").Activate
' Set sht = This Workbook.Sheets("Data")

Range("A1").Select
wrkSheet = Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
wrkSheet.ListObjects.Add(xlSrcRange, Selection, , xlYes).TableStyle = "TableStyleMedium14"
''tblSelect.TableStyle = "TableStyleMedium14"

' ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$AO$2959"), , xlYes).Name _
' = "Table1"
' Range("A1:AO2959").Select
' ActiveSheet.ListObjects("Table1").TableStyle = "TableStyleMedium15"

End Sub