validation - VBA での動的リスト検証の使用

Question

VBA でのプログラミングは初めてで、Excel ワークシートのリストを使用してデータを検証しようとしています。問題は、ドロップダウン リストから異なる条件を選択するたびにリストのサイズが変わることです。

例: 中国を選択すると、リストは 10 の異なる販売者に変わります。範囲は A1 から A10 ですが、日本を選択すると、A1 から A5 までの 5 つの売り手しかありません。

そのため、毎回Formula1部分に新しい範囲が必要です。

With Selection.Validation
    .Delete
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
    xlBetween, Formula1:="=$Z$1:$Z$30"
    .IgnoreBlank = True
    .InCellDropdown = True
    .InputTitle = ""
    .ErrorTitle = ""
    .InputMessage = ""
    .ErrorMessage = ""
    .ShowInput = True
    .ShowError = True
End With

これを行う最良の方法は何ですか？

固定範囲のままでも機能することはわかっていますが、多くの空のスペースが残り、きれいに見えないため、見た目が良くありません。

理解できることを願っています。