用于在excel中插入带有某些下拉值的表的VBA代码

我试图编写一个VBA代码，用于插入一个表，其中包含一些标题和内联元素的下拉值。但我对数据验证部分感到困惑。 我想在“插入模块”按钮上插入表格，请单击。该表应包含标题和每行的建议。标题建议与行建议不同

这是我插入表的代码，它可以正常工作

Dim objTable As ListObject
Set objTable = ActiveSheet.ListObjects.Add(xlSrcRange, Selection, , xlYes)

---

成功插入表格后，将任何标题应用于其标题单元格。我想插入一个带有标题和元素建议的表格，只需单击一个自定义按钮。这样，用户只需单击按钮，就可以拥有一个包含所有数据建议的表。您已经有了插入表的代码。现在添加代码来修改它的列标题。构建下拉列表的值来自哪里。它们是在工作表上还是要硬编码到宏中？需要硬编码到宏中。我试过了。但问题是我们无法预测每个表的标题和元素的单元格地址，因为它是由用户动态创建的。