Sub ShtPrntArr(Arr, Optional FirstRow& = 1, Optional FirstCol% = 1)
   ' Purpose      : вывод данных из 2D-массива Arr на текущую страницу
   ' Notes1       : по умолчанию вывод начинается с ячейки [A1]
   Cells(FirstRow, FirstCol).Resize(UBound(Arr, 1), UBound(Arr, 2)).Value = Arr
End Sub

Var = Application.InputBox("Задайте число:", "Гистаграмм", 0, Type:=1)  'пользователь задаёт число

'------------- создание массива -----------------
                    Dim классы   As Variant
                    Dim i   As Long
                    ReDim классы(Var)
                    
                For i = 1 To Var
                
                    классы(i) = Cells(1, 4) + i

                Next i
    
'------------ создание Гистограмма --------------

                    Application.Run "ATPVBAEN.XLAM!Histogram", Range(Cells(1, 1), Cells(50, 1)) _
                        , Cells(52, 1), Range(UBound(классы, 1), UBound(классы, Var)), False, False _
                        , True, False  

=РЯД(;{"неделя 1";"неделя 2";"неделя 3";"неделя 4"};{43;30;29;28};1)