不应在公式中输入=符号，更正代码为：事实上你应该。

With shPD.Cells(tr, Range("pdBrand").Column).Validation
    .Delete
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertInformation, Operator:=xlBetween, Formula1:="tblBrand"
End With

好的，我做了进一步的实验。不知何故，Table不是普通的Name。如果你在Names窗口中查看它们，它们有一个不同的图标，并且它们不在ThisWorkbook.Names中枚举。结果，它们不允许在Formula1中使用。
您应该创建一个具有相同范围的新名称，或者创建一个新名称，例如引用表=tblBrand的tblBrandIndirect（可以通过VBA，但通过“名称”窗口更容易），并在Formula1中使用该名称：

With shPD.Cells(tr, Range("pdBrand").Column).Validation
    .Delete
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertInformation, Operator:=xlBetween, Formula1:="tblBrandIndirect"
End With

这样，您既可以将其用作表，也可以将其用作普通名称，而无需更新其地址。