Private Sub бокс_пехиВ_Change()                         ' выбор диапазона из меню выбора
    Me.бокс_пехиД1.ListFillRange = Me.бокс_пехиВ                  ' привязка к выбору в боксе выбора
        бокс_пехиД1.ListWidth = бокс_пехиД1.Width + 96         ' ширина выпадающего списка (для добавления колонок)
        
            Private Sub ComboBox1_DropButtonClick()              ' снять фокус в комбо
                With ThisWorkbook.Sheets("Расч").OLEObjects("бокс_пехиД1").Object
                    .SelStart = Len(.Text)
                    .SelLength = 0
                End With
            End Sub
            
    Me.бокс_пехиД2.ListFillRange = Me.бокс_пехиВ
        бокс_пехиД2.ListWidth = бокс_пехиД2.Width + 96
    Me.бокс_пехиД3.ListFillRange = Me.бокс_пехиВ
        бокс_пехиД3.ListWidth = бокс_пехиД3.Width + 96
   ...
End Sub