Private Sub TextBox_number_Change()
    If Me.TextBox_number.text <> "Дробное число" Then
        If Me.TextBox_number.text Like "*[!0-9,]*" Then
            Me.TextBox_number.text = Left(Me.TextBox_number.text, Len(Me.TextBox_number.text) - 1)
        End If
    End If
End Sub

    'Убираем границу фигуры
    ch.Line.Visible = msoFalse

MyChart.Activate

Sub exportAndLoadDiagram(uf As EarthForm)
    'Скачиваем и закачиваем диаграмму
    Dim CurrentFileName As String
    CurrentFileName = Workbooks("Проект.xlsm").Path & "/current.gif"
    
    Dim MyChart As Chart
    Set MyChart = Workbooks("Проект.xlsm").Worksheets("Диаграмма грунтов пикета").ChartObjects("EarthOnPicketDiagram").Chart
    'Ошибка вот здесь
    MyChart.Export CurrentFileName, "GIF"
    
    uf.Image_earthOnPicket.Picture = LoadPicture(CurrentFileName)
    '=====================
    
    'Удаляем с листа диаграмму
    Workbooks("Проект.xlsm").Worksheets("Диаграмма грунтов пикета").Shapes("EarthOnPicketDiagram").Delete
End Sub

Sub openForm()
    Dim obj As New UserForm1
    obj.Show
End Sub

Private Sub UserForm_Initialize()
    MsgBox "init userform1"
    Call Module1.proc("userform1")
End Sub

Sub proc(text As String)
    If text = "userform1" Then
        Dim fm As UserForm1
        Set fm = UserForm1
    End If
End Sub

Range("Таблица1").Select
    ActiveChart.ClearToMatchStyle
    ActiveChart.ClearToMatchStyle
    ActiveSheet.Shapes.AddChart2(286, xl3DColumnStacked100).Select
    ActiveChart.SetSourceData Source:=Range("Лист1!$I$2:$J$3")

    Dim obj As ListObject
    Set obj = Workbooks("Macro.xlsm").Worksheets("Лист1").ListObjects("Таблица1")
    Dim ch As Shape
    
    Set ch = ActiveSheet.Shapes.AddChart2(286, xl3DColumnStacked100)
    ch.Name = "my diagram"
   
    ch.Chart.SetSourceData Range("Лист1!" & obj.DataBodyRange.Address)

Private WithEvents lb As MSForms.Label



Private Sub lb_Click()
    MsgBox "click"
End Sub

dim table as ListObject
Set table = Workbooks("Проект.xlsm").Worksheets("Лист1").ListObjects("MyTable")

Me.ComboBox_nameOfColumns.List = table.HeaderRowRange.value //!! В комбобоксе название только первой колонки объекта table! 

obj.ListColumns(1).DataBodyRange - возвращает "тело" таблицы под заголовком. Неподходит
obj.ListColumns(1).Range - возвращает весь Range (и заголовка и самой таблицы). Неподходит

Sub Макрос1()
    Dim country As New Collection
    Dim size As New Collection
    Dim price As New Collection
    
    Dim table As ListObject
    Set table = Workbooks("пробник.xlsm").Worksheets("Лист2").ListObjects("Таблица2")
    
    'Собираем все значения в столбце "Страна производства"
    Set country = getValuesInColumn(table, "Страна производства")
    'Собираем все значения в столбце "Размер коробки"
    Set size = getValuesInColumn(table, "Размер коробки")
    'Собираем все значения в столбце "Цена"
    Set price = getValuesInColumn(table, "Цена")
    
    Dim counterForCountry As Long
    Dim counterForSize As Long
    Dim counterForPrice As Long
    
    'Начинаем фильтровать колонку "Страна производства" по одному из доступных значений:
    For counterForCountry = 1 To country.Count
        'Если какой-то фильтр в таблице имелся - сбросим его
        If table.AutoFilter.FilterMode Then
            table.AutoFilter.ShowAllData
        End If
        
        table.DataBodyRange.AutoFilter 4, country(counterForCountry) '- теперь наша таблица отфильтрована по столбцу "Страна производства"
        
        'Начинаем фильтровать колонку "Размер коробки" по одному из доступных значений:
        For counterForSize = 1 To size.Count
            'Сбрасываем фильтр по данной колонке если он там был
            table.DataBodyRange.AutoFilter 3
            'Фильтруем по доступному полю из коллекции
            table.DataBodyRange.AutoFilter 3, size(counterForSize)
            
            'Начинаем фильтровать колонку "Цена" по одному из доступных значений:
            For counterForPrice = 1 To price.Count
                'Сбрасываем фильтр по данной колонке если он там был
                table.DataBodyRange.AutoFilter 2
                'Фильтруем по доступному полю из коллекции
                table.DataBodyRange.AutoFilter 2, price(counterForPrice)
                '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
                'Прямо здесь у нас есть информация о продукте с которой мы можем что-либо сделать
                '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
            Next counterForPrice
            'Сбрасываем фильтр по колонке "Цена"
            table.DataBodyRange.AutoFilter 2
        Next counterForSize
        'Сбрасываем фильтр по колонке "Размер коробки"
        table.DataBodyRange.AutoFilter 3
    Next counterForCountry
End Sub

'Функция, которая возвращает коллекцию значений без повторений в переданной таблице переданной колонке.
Function getValuesInColumn(table As ListObject, nameOfColumn As String) As Collection

    Set getValuesInColumn = New Collection
    
    On Error Resume Next
    Dim counter As Long
    Dim value As String
    For counter = 1 To table.ListRows.Count
            value = Intersect(table.ListRows(counter).Range, table.ListColumns(nameOfColumn).DataBodyRange).value
            getValuesInColumn.Add value, value
    Next counter
    
End Function