主题：求助，如何导出表结构的代码

Dim Rg As MSExcel.Range
Rg = Ws.Range("A1:K1")
Rg.Insert(MSExcel.XlInsertShiftDirection.xlShiftDown)
Dim Rg1 As MSExcel.Range
Rg1 = Ws.Range("A1:K1")    '设置标题的范围
Rg1.Merge         '合并 
Rg1.Value ="导入"   '设置标题

如果表的宽度是随机的，如何设置合并单元格的数量刚好和表格的列数一样？